Дано действительное число. Вывести целую и дробную части этого числа. Число

program zz1;

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

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

begin

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

read(R);

a:=frac(R); // отделяем дробную часть реального числа

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

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

write( дробная часть данного реального числа = , a);

end.