program summa1;
var
 sum, n: integer;
 i, arv: integer;
begin
 sum:=0;
 writeln('Mitmest arvust leiad summa?');
 readln(arv);
 for i:=1 to arv do begin
  writeln('Summa on ', sum);
  write('n='); readln(n);
  sum:=sum+n;
 end;
 writeln('Kogusumma on ', sum);
end.