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

//Pascal ABC.NET 3.1 сборка 1256Var a,b,c:integer;beginread(a,b);if a<b then 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.Пример ввода:-34Пример вывода:a=7b=12