даны 2 числа если первое число болше 2 то 1 число уменьшить на 10 иначе 2 число увеличить в 2 раза​

if (x1>x2)

x1=x1-10;

else

x2=x2*2;

Ответ:

program s_2;

var a, b: real
;

begin  

writeln ('Пожалуйста введите 1 и 2 число>>')
;

readln ( a,b )
;

if a>b ;

then a:= a-10
;

else b:= b*2
;

writeln ('Ответ')
;

writeln ('Первое число = ', a)
;

writeln ('Второе число = ', b);

Объяснение: