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

program zz1;

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

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

begin

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

read (R);

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

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

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

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

end.