Даны две различные переменные. составить алгоритм, который значение меньшей переменной заменит произведением этих переменных, а значение большей- суммой. (в abc pascal)

Program f1;
var a,b: integer;
begin
readln(a,b);
if a<b then begin
a:=a*b
 b:=a+b;
writeln(a,b);
else
a:=a+b;
b:=a*b;
writeln(a,b);
end;
end.