даны два целых числа а, в определить являются ли они четными

Паскаль

program m1;

uses crt;

var a, b:integer;

begin

write ('Введите число a: ') ; readln (a) ;

write ('Введите число b: ') ; readln (b) ;

if (a mod 2 = 0) then writeln ('Число a четное!')

else writeln ('Число a нечетное!') ;

if (b mod 2 = 0) then writeln ('Число b четное!')

else writeln ('Число b нечетное!') ;

end.