Ответ:

Program Skola;

Var a, b:integer;

begin

 writeln ('Введите ваш возраст');

 readln(a);

 writeln ('Введите ваш стаж');

 readln(b);

 if (a <= 42) and (b >= 5) then writeln('Вы приняты в компанию')

 else writeln('Вы не приняты в компанию');

end.

Оцени пожалуйста.