Program PascalGuru;
 
 
var f:text;
    c,summa:integer;
 
begin
assign(f,'file.txt'); reset(f);
 
summa:=0;
while not eof(f) do
      begin
      readln(f,c);
      summa:=summa+c;
      end;
 
writeln('Summa ravna:',summa);
writeln('Poslednyaya komponenta:',c);
 
 
 
close(f);
readln;
end.