1.program n1;

2.Var x: Real;

3.begin

4.Writeln:('Введите дробное число');

5.ReadLn(x);

6.Writeln (x div 1);

7.Writeln (x mod 1);

8.end.