Var
summa, arv: integer;
f: text;
s: string;
begin
assign(f, 'arvud.txt');
reset(f);
summa=0;
while not eof(f) do
begin
readln(f, s);
val(s, arv, viga);
if viga=0 then summa:=summa+arv;
end;
writeln(Failis olnud arvude summa oli ', summa);
end.