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('Задача решена');
<span>end.</span>
Объяснение:
3*10^4+2*10^3+6*10^2+7*10^1