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

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.