Помиогите с ! у нас в стране планируется ввести 100 оценку. но оценивать потребуеся по привычной шкале. будем считать, что до 25 это двойка, от 26 до 50 это тройка, от 51 до 75 это четверка, от 76 до 100 это пять. составьте програму на паскаль, которая реализует такой перевод.
Program n_1;
var a:integer;
begin
readln(a);
if (a>100) or (a<0) then writeln('err')
else if a<=25 then writeln('2')
else if a<=50 then writeln('3')
else if a<=75 then writeln('4')
else writeln('5');
end.