Ввести с клавиатуры два числа, задать их значения переменным м и

program zz1;

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

begin

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

read(m);

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

read(n);

d:= m / n; // обретаем приватное

p:= m - n; // обретаем разность

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

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

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

end.