contoh program 11

uses crt;

var

         ada: integer;

begin

clrscr;

         write('Masukkan sebuah angka   : ');

         readln(ada);

       

         repeat

         begin

                         ada := ada - 2;

         end;

         until ang <= 1;

       

         if ada = 0 then

                         write('Even')

         else

                         write('Odd');

                       

         readln;

end.