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

program zz1;

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

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

begin

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

read(x);

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

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

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

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

end.