Написать программу чтоб работала в 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.