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

PascalABCvar x,y,z:integer;t:real;beginwriteln('Введите первое целое число');readln(x);writeln('Введите второе целое число');readln(y);writeln('Введите разность');readln(z);writeln('Введите частное');readln(t);if ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x)) then writeln('Вычисления выполнены правильно')else writeln('Вычисления выполнены неправильно');end.