плииииииз помиогите с заданием!!!!!!!!!!!!!!!!!!!

У нас в стране планируется ввести 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.