Question

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

Answer 1

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