program Soucet_posloupnosti_cisel;

  (* Program, ktery vypocita soucet n zadanych cisel *)

uses Crt;

var i,n,x,suma:integer;

begin
  ClrScr;

  Write('Zadej n: ');
  ReadLn(n);

  suma:=0;
  for i:=1 to n do
  begin
    Write('Zadej ',i:2,'. cislo: ');
    ReadLn(x);
    suma:=suma+x;
  end;
  WriteLn('Soucet zadanych cisel je ',suma)
end.