program osszead4;
var fajl: text;
    szam, eredmeny: integer;
begin
  writeln('Osszead 4.');
  assign(fajl, 'szamok.txt');
  {$I-}
  reset(fajl);
  {$I+}
  if IOResult<>0 then
  begin
     writeln('Szukseg van a "szamok.txt"-re');
     exit; //kilepes a programbol
  end;
  eredmeny := 0;
  while not eof(fajl) do
  begin
    readln(fajl, szam);
    //writeln(szam);
    eredmeny := eredmeny + szam;
  end;
  writeln('Eredmeny: ', eredmeny);
  close(fajl);
  readln;
end.