Question

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

Answer 1

const a:real=345.75;
begin
writeln(int(a));
writeln(frac(a));
end.