Program Skola;
Var a, b:integer;
begin
writeln ('Введите ваш возраст');
readln(a);
writeln ('Введите ваш стаж');
readln(b);
if (a <= 42) and (b >= 5) then writeln('Вы приняты в компанию')
else writeln('Вы не приняты в компанию');
end.
Оцени
Program Skola;
Var a, b:integer;
begin
writeln ('Введите ваш возраст');
readln(a);
writeln ('Введите ваш стаж');
readln(b);
if (a <= 42) and (b >= 5) then writeln('Вы приняты в компанию')
else writeln('Вы не приняты в компанию');
end.
Оцени