Question

ОЧЕНЬ СРОЧНО,ПОМОГИТЕ ПОЖАЛУЙСТА!!!ДАЮ 100 БАЛЛОВ!!!!
Задача
Дано двузначное число. Если первая цифра больше второй, то вычислить сумму цифр, если нет увеличить вторую цифру в 2 раза. Вывести результат.

Answer 1

program grg;

var x: integer;

begin

 readln(x);

 if (x div 10) > (x mod 10) then

   begin

   x := (x div 10) + (x mod 10);

   writeln(x)

   end

 else writeln((x div 10), (x mod 10)*2);

end.