var
    arr: array[1..100] of real;
    n: integer;
    sum, op: real;
    i: integer;
 
begin
    write('Vvedite N ');
    readln(n);
    
    for i := 1 to n do
    begin
        write('Vvtdite ',i,'-oe Chislo ');
        readln(arr[i]);   
    end;
    sum := 0;
    for i := 1 to n do
        sum := sum + arr[i];
    writeln('Summa= ', sum);
end.