Решить (на уровне 7 класса) в pascalabc дано 2 числа найти модуль разности чисел увеличенный в 5 раз

Program zd;
var
x,y,c,z,t:integer;
begin
writeln('Введите два числа');
readln(x,y);
z:=x*5;
c:=y*5;
t:=abs(z-c);
writeln('Результат равен= ', t);
readln;
end.

попробуй, вроде всё нормально работает