ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/PASCAL/INTRFC62.ZIP/TEST1.INC

Text File | 1990-12-18 | 104 b | 8 lines

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