Дан одновременный массив из п целых положительных чисел

var a: array [1… 100] of integer; n, i: integer; sum: real; begin read (n); for i: =1 to n do read (a[i]); sum: =0; for i: =1 to n do sum: =sum+1 / a[i]; sum: =n / sum; writeln (sum); end.