Program TOPLA;
Uses Dos,Crt;
var
  F     : Text;
  sayi  : longint;
  toplam:longint;
begin
  clrscr;
  if paramcount < 1 then
     begin
       writeln('Kullanim : TOPLA DOSYA_ISMI');
       Halt;
     end;
  Assign(F, ParamStr(1));
  Reset(F);
  while not Eof(F) do
  begin
    Read(F, sayi);
    toplam:= toplam + sayi;
    writeln(sayi);
  end;
  close(F);
  writeln('sonuc=',toplam);
  Assign(F,'SONUC.TXT');
  Rewrite(F);
  Writeln(F,Toplam);
  Close(F);
end.