Вкомпьютер вводятся два числа. если первое больше второго то вычтслить их сумму иначе произведение после этого компьютер должен напечатать текст решена
Var x,y: integer; begin write('Введите два целых числа, разделяя их пробелом: '); readln(x,y); if x>y then writeln('Сумма ',x,' и ',y,' равна ',x+y) else writeln('Произведение ',x,' и ',y,' равно ',x*y); writeln('Задача решена'); end.
begin write('Введите два целых числа, разделяя их пробелом: ');
readln(x,y);
if x>y then
writeln('Сумма ',x,' и ',y,' равна ',x+y)
else
writeln('Произведение ',x,' и ',y,' равно ',x*y);
writeln('Задача решена');
end.