>>957
program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils, Classes;

const
    filename='test.txt';
var
    sum:    double;
    fp:    TextFile;
    str:    string;
begin
    sum:=0;

    try
        try
            AssignFile(fp, filename);
            Reset(fp);

            try
                while (not Eof(fp)) do
                begin
                    Readln(fp, str);
                    sum:=sum+StrToFloatDef(str, 0);