uses crt;
var
ang: integer;
begin
clrscr;
write('Masukkan sebuah angka : '); readln(ang);
repeat
begin
ang := ang - 2;
end;
until ang <= 1;
if ang = 0 then
write('Even')
else
write('Odd');
readln;
end.
Tidak ada komentar:
Posting Komentar