program summa_leidmine;
var
 i, n: integer;
 arv, summa:integer;

begin
 writeln('Programm leiab sisestatud arvude summa.');
 write('Mitu arvu soovid sisestada ');
 readln(n);
 write('Kirjuta arv ');
 readln(arv);
 summa:=arv;

 for i:=2 to n do 
 begin
  write('Kirjuta arv ');
  readln(arv);
  summa:=summa+arv;
 end;

 writeln('Arvude summa on ', summa);
end.