Написать программу чтоб работала в Pascal

запрашивает с клавиатуры два целых числа, их разность и частное (результат деления) и выво дит на экран сообщение о правильности сделанных пользователем вычислений;

PascalABC

var x, y, z:integer;

t:real;

begin

writeln ('Введите первое целое число');

readln (x);

writeln ('Введите второе целое число');

readln (y);

writeln ('Введите разность');

readln (z);

writeln ('Введите частное');

readln (t); i

f ((z=x-y) or (z=y-x)) and ((t=x/y) or (t=y/x)) then writeln ('Вычисления выполнены правильно')

else writeln ('Вычисления выполнены неправильно');

end.