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

Question

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

Answer 1

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

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.