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

program zz1;

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

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

begin

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

read (x);

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

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

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

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

end.