Даны два целы числа 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.

Должно работать, не проверял)