С клавиатуры вводится средний балл сессии студента — S. Определить какую стипендию ему начислить: повышенную (S>=4.5), обычную (4<=S<4.5) или отказать в ней (S<4)- Pascal(Паскаль)

var
S:real;
BEGIN
write('Введите средний балл студента S=');
readln(S);
writeln;
if S>=4.5 then writeln('Стипендия студента - повышенная!') else
if S<4 then writeln('Стипендия студента - нулевая:(') else
 writeln('Стипендия студента - обыкновенная');
readln;
END.