Написать программу вычисления и вывода на экран модуля разности двух чисел. 8 класс

Program programma;
Uses crt;

var x,y,r: integer;
Begin clrscr;
write('x = ');
readln(x);
write('y = ');
readln(y);

r:=abs(x-y);
writeln('Modul r = ', r);
readln;
end.