Есть тут великие математики? Хелп!!!!

[Gadys]

Герлфренда попросила...


Дан текстовый файл. В каждой строке записано одно целое число (количество цифр в числе <=50).Найти сумму всех чисел. PS: каждое число может быть как положительным, так и отрицательным.


ток эта фича на паскале нужна....

[Lermontov]

запарили своими лабами.

[Gadys]

чувак,на этом форуме постов не дают,так что не напрягайся...
Еслиб я мог решить эту хрень-не просил бы...но с моим экономическим сие мракобесие непонятни ваапще...

[Trojan]

program lox;
const N = 10000;
var failik,top,i : integer;
stringa : string;
inda : array [1..N] of real;
BEGIN
assign (failik,'lox.txt');
stringa:='lox.txt';
reset (failik);
top:=0;
while not EOF(failik) and (i <= N) do
begin
read(failik,m[i]);
top:=top + m[i];
inc(i);
end;
close(failik);
writeln('Сумма всех чисел в файле ',stringa,' равна ',top);
END.

по идее готово