Определить чётность каждого из натуральных чисел x, y, z программа

Вроде программа на Паскаль, срочно нужно!!!

Спасибо большое, вознаграждение 45 б!!!

var x,y,z: integer;

begin

readln(x,y,z);

if x mod 2=0

then writeln(x,'-четное') else writeln(x,'-нечетное');

if y mod 2=0

then writeln(y,'-четное') else writeln(y,'-нечетное');

if z mod 2=0

then writeln(z,'-четное') else writeln(z,'-нечетное');

end.

Пример:

15 42 93

15-нечетное

42-четное

93-нечетное