Выполнить в Паскале: Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.

var i,n:Integer; A:Array[1..1000] of Real; sum,srednee,max,min:Real; Begin  Read(n);  for i:=1 to n do   Read(A[i]);  for i:=1 to n do   sum:=sum+A[i];   srednee:=sum/n;  max:=A[1];  min:=A[1];  for i:=1 to n do   begin    if (A[i]>max) then max:=A[i];    if (A[i]