function    fun;
    var
      x : double;
    begin
      x := 0;
      x := x*x;
    end;