Ответ:
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) Сначало получаем значение а и б от пользователя, с помощью readln(a,b);
2) Исходя из значения, мы получаем либо а больше б, либо б больше а.
3) В конце выводим значение переменной в консоль с помощью writeln().