Pascal на работу в совместное предприятие приглашаются специалисты, возраст которых не превышает 50 лет. определи, будет ли принят на работу человек, возраст которого n лет?

Const age = 50;
var
n : integer;
begin
write ('Введите возраст: ');
readln (n);
if n<age then write ('Будет принят') else write ('Не будет принят');
end.

Program n1cel;
var N:integer;
begin
введите возраст человека в поле ниже');
readln(N);
if N<=35 then writeln('Принят')
else
writeln('Не принят');
end.