Question

Определить меньшее из двух чисел. Увеличить его в двое и вывести результат на экран

Answer 1

program test;

var a,b: integer;

begin

read(a,b)

if a<b then begin a:=a*2 write (a); end else b:=b*2; write(b); end;

end.