Дано действительное число Х. Напишите программу для вычисления: Числа Х, округлённого до ближайшего целого Числа Х без

program zz1;

var    a, x:real; // задаем переменные действительного типа

k:integer;// задаем переменную целого типа

begin

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

read(x);

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

k:=trunc (x); // отделяем целую часть действительного числа

writeln (\' целая часть заданного действительного числа Х без дробных цифр = \', k); // выводим ответ

write(\' Число Х, округленное до ближайшего целого действительное число = \', a);

end.