program nszamosszege;

uses newdelay, crt;
const nmax=100;
type tomb=array[1..nmax] of integer;

var n:integer;
    x:tomb;
    i:integer;

function ossz(n:integer):longint;
begin
if n=0 then ossz:=0
       else ossz:=ossz(n-1)+x[n];
end;

function max(n:integer):integer;
begin
if n=1 then max:=x[1]
       else
           begin
           if max(n-1)<x[n] then max:=x[n]
                                 else max:=max(n-1)




begin
clrscr;
write('Adja meg n-et: ');
readln(n);
for i:=1 to n do
    begin
         write('Adja meg a ',i,'. elemet: ');
         readln(x[i]);
    end;
ossz(n);
writeln('Az ”sszeg: ',ossz(n));
readln;
end.