Question

Пожалуйста помогите... Составить программу удвоения меньшего из двух чисел. ​

Answer 1

var

 a,b: real;

begin

readln(a,b);

if a<b then a:=2*a else if b<a then b:=2*b;

write(a,' ',b);

end.