Даны два целы числа a и b.Заменить большее из числе произведением а меньшее суммой.PASCALABC

Я немного изменил, пересмотри ещё раз.

var a, b, c : longint;begin    read (a, b);  if (a>b) then  begin    c:=a;    a:=a*b;    b:=c+b;  end else  if (b>a) then  begin    c:=b;    b:=a*b;    a:=c+a;  end;  writeln (a, ' ', b);end.Должно работать, не проверял)