GİRDİĞİNİZ SAYININ TEK Mİ ÇİFT Mİ OLDUĞUNU BULAN PROGRAM


uses  crt;
var
   a:integer;
   begin
   clrscr;
   write('BIR  SAYI  GIRINIZ:'); readln(a);
   if trunc (a/2)*2=a then
   write('BU  SAYI  €IFTTIR.')
   else
   write('BU  SAYI  TEKTIR.');
   readln;
   end.