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

Паскаль

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.