Напишите программу для турбо паскаля. Условие: фирма осуществляет набор сотрудников, условия приёма: требуется не менее 3 лет рабочего стажа и возраст не более 35 лет.

Var a, b, c:real;

begin

writeln ('Введите Ваш рабочий стаж:');

readln (a);

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

readln (b);

if (a>=3) and (b<=35) then

writeln ('Вы нам подходите') else

writeln ('К сожалению, Вы нам не подходите');

end.

Var

vozrast, stash:integer;

writeln ('Сколько вам лет');

readln (vozrast);

writeln ('Какой у вас рабочий стаж');

readln (stash);

if (vozrast3) then

writeln ('Мы берем вас на работу')

else writeln ('Вы нам не подходите');

end.