7. Запиши программный код задачи. Даны два числа А и В. Если А больше В, то А удвоить, если В больше А , то В увеличить на 10. *

program test;

var a,b:real;

begin

readln(a,b);

 if (a>b) then

 begin

 a := a*2;

 writeln('Итоговое значение а = ', a);

end;

if (b>a) then

begin

  b := b*10;

  writeln('Итоговое значение б = ', b);

end;

end.

Объяснение:

1) Сначало получаем значение а и б от пользователя, с

2) Исходя из значения, мы получаем либо а больше б, либо б больше а.

3) В конце выводим значение переменной в консоль с