Составить программу позволяющую из двух данных чисел большее заменить удвоенным...

Question

Составить программу позволяющую из двух данных чисел большее заменить удвоенным произведением этих чисел ( паскаль,9 класс)

Answer 1

var a,b:integer;

begin

 writeln('Ввод:');

 write('a= ');

 readln(a);

 write('b= ');

 readln(b);

 if a>b

   then a:=2*a*b;

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

   writeln;

   writeln('Вывод:');

 writeln('a= ',a);

 writeln('b= ',b);

end.

PascalABC