Ввести дробное число. возвести в квадрат дробную часть числа. в паскале!

Вот программка:

uses Crt;
var  n, drob: real;

begin
  ClrScr;
  Write (' n = ');
  ReadLn(n);
  drob:=(frac(n)*frac(n));
  WriteLn(' drob^2 =', drob:8:4);
  ReadLn;
end.