С клавиатуры вводится средний балл сессии студента — S. Определить какую…

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