Question

Составить программу даны 2 числа если первое число болше 2 то его увеличить в 2 раза иначе второе число увеличь В 2 раза

Answer 1

var a,b:integer;

begin

readln(a,b)

If (a>b)  

then a:=a*2

else b:=b*2;

end.