даны 2 числа если первое число болше 2 то 1 число

Ответ:

program s_2;

var a, b: real ;

begin  

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

readln ( a,b ) ;

if agt;b ;

then a:= a-10 ;

else b:= b*2 ;

writeln ('Ответ') ;

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

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

Разъясненье:

if (x1gt;x2)

x1=x1-10;

else

x2=x2*2;