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

Question

Составьте программу, заменяющую из двух данных чисел меньшее число модулем разности, а большее - модулем произведения этих чисел.

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

Var
 a,b,c:integer;
begin
read(a,b);
if a begin
  c:=a;
  a:=abs(a-b);
  b:=abs(c*b);
 end
 else
 begin
  c:=b;
  b:=abs(a-b);
  a:=abs(a*c);
 end;
writeln('a=',a);
write('b=',b);
end.

Пример ввода:
-3
4
Пример вывода:
a=7
b=12