СОСТАВЬТЕ ПРОГРАММУ В ПАСКАЛЬ

Определите делится ли модуль разности введеных чисел на 2​

Program zadanie;

var a,b,c: integer;

begin

write('Введите два числа: ');

readln(a,b);

c:=abs(a-b);

if c mod 2=0 then wtiteln('Число ',с, ' четное')

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

readln;

end.