Дано вещественное число x. Напишите программу, которая вычисляет целую часть числа x, округленную до ближайшего целого, и выводит на экран монитора результат. Информатика, 7 класс.

program zz1;

var s:integer; / / вводим переменную целого типа

x:real; / / вводим переменную вещественного типа

begin

write (' введите заданное вещественное число '); / / вводим с клавиатуры вещественное число

read (x);

s:=round (x); / / округляем до ближайшего целого

/ / выводим ответ

write (' целая часть числа x, округленная до ближайшего целого = ', s);

end.