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

Паскаль 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.