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