Составьте программу нахождения суммы n производных чисел (число n с клавиатуры ввести)

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.