Даны 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);
Объяснение: