чет не чет

program zad9;
uses crt;
var a, b, c:integer;
begin
writeln('a='); readln(a);
writeln('b='); readln(b);
writeln('c='); readln(c);
if a mod 2=0 then writeln('chetnoe',a)
else writeln(' not chetnoe a*a' ,a*a );
if b mod 2=0 then writeln ('chetnoe',b)
else writeln ('not chetnoe b*b', b*b) ;
if c mod 2=0 then writeln (' chetnoe',c)
else writeln (' not chetnoe c*c', c*c);
readkey;
end.