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