Ввести с клавиатуры два числа, задать их значения переменным м и н. обозначить их частное переменной д и их разномть р. определить,_чтр больше д или р. вывести в диалоговое окно соответструющие сообщение

program zz1;

var m, n, d, p:real; / / вводим переменную целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (m);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (n);

d: = m / n; / / находим частное

p: = m - n; / / находим разность

if d > p / / проверяем, если частное больше разности, то

then write (' частное двух заданных чисел больше разности ') / / выводим один ответ

else write (' разность двух заданных чисел больше частного '); / / иначе, выводим другой ответ

end.