Programul in pseudocod: Citeste n;     S <--- 0      i <--- 1   Cat timp i <= n+1 executa         inceput  Citeste x;    S <--- S+x     i <--- i+2         sfarsit;   Scrie S.   sfarsit. Programul in Pascal: Program sum;   var: S, i : integer;        Read (n);   S:=0;     i:=1;      while i < = n +1 do    begin        Read (x);    S:=S+x;     i:=i+2    end;      write S; end.