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

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

end.

прошу.