Найти сумму элементов массива состоящего из n чисел и найти их среднее арифметическое на языке паскаль

program task31152710; const  N = 10; var  arr: array[1..N] of integer;  S: real; begin  for var i := 1 to N do    begin      Readln(arr[i]);      S := S + arr[i]    end;  Writeln('СУММА ЭЛЕМЕНТОВ = ', S);  Writeln('СРЕДНЕЕ АРИФМ. = ', S / N); end.