даны 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);

Объяснение: