Program untuk Menentukan Bilangan Ganjil atau Genap Menggunakan Delphi 7

Pseudo Code:


var p:integer;
begin
  p:=StrToInt(edit1.Text);

  if p mod 2 = 0 then edit2.Text:='genap';
  if p mod 2 = 1 then edit2.Text:='ganjil';
end;

Semoga Bermanfaat :)