Program P103;
 { Eroare }
type TF=function(x : real) : real;

function F1(x : real) : real;
begin
  F1:=sqr(x);
end; { F1 }

procedure T(F : TF; x : real);
begin
  writeln('x=', x, '   f(x)=', F(X));
end; { T }

begin
 T(F1, 2);
 T(sqrt, 2);
 readln;
end.