Question

Написать программу, которая удваивает меньшее из двух чисел и увеличивает на два большее из чисел

Answer 1

program z;
var a,b: integer;
begin
readln(a,b);
if a > b then begin
 b:=b*2;
 a:=a+2;
end else if a<b then begin
 a:=a*2;
 b:=b+2;
end;

end.