program grade;
var b,s:real;
begin
write ('Введите значение ');
read (b);
s:=round (b);
writeln ('Оценка ученика - ', s);
end.
Объяснение:
язык pascal abc
функция round округляет число
функция trunc отбрасывает дробную часть
