БГЭ

В Берляндии после окончания школы каждый школьник сдаёт Берляндский государственный экзамен (БГЭ) по ряду предметов. Петя и его друзья собираются учиться на программистов, поэтому сдали экзамен по информатике. За экзамен каждый школьник получает балл, который выражается целым числом от 0 до 100. В Берляндии принято переводить баллы, полученные за экзамен, в привычные школьные оценки от 2 до 5. Перевод осуществляется по следующим правилам:

от 0 до 28 баллов за БГЭ — оценка 2

от 29 до 52 баллов за БГЭ — оценка 3

от 53 до 77 баллов за БГЭ — оценка 4

от 78 до 100 баллов за БГЭ — оценка 5

Требуется написать программу, которая бы переводила балл за БГЭ в оценку.
var
x:integer;
begin
 readln(x);
 if x<29 then x:=2;
 if (x>28) and (x<53) then x:=3;
 if (x>52) and (x<78) then x:=4;
 if (x>77) and (x<101) then x:=5;
 writeln(x);
 end.