Во второй тур конкурса проходит обучающийся набравший от 85 до 100 включительно. ввести количество и определить ли он во второй тур (ввести ответ "подходит" или "не подходит")

Var A:integer;
begin
Readln(A);
If (A>=85) and (A<=100) then
Writeln('подходит')
else
Writeln('Не подходит');
end.