var
a : Integer;
ket : String;
begin
a := StrToInt(edit1.Text);
if (a mod 0) then
if (a>=0) then
ket : ‘Genap Positif’;
else
ket : ‘Genap negatif’;
else
if (a<=0) then
ket : ‘Ganjil Negatif’;
else
ket : ‘Ganjil Positif’;
edit2.Text := ket;
end;
end.
Advertisement
