Составить прогу, которая вычисляет среднюю скорость катера по результатам измерения в 6 пунктах. (Задаются в массиве констант 87км/ч, 68 км/ч, 82,7 км/ч, 91 км/ч, 86 км/ч, 67,5 км/ч). Составьте, пожалуйста, буду очень признателен.

Давайте)

begin readarrreal(6).Average.ToString.Println; end."Школьный вариант":const   N = 6;  var   i: integer;   ar: array[1..N]of real;   s: real;  begin   s := 0;   for i := 1 to N do    begin     read(ar[i]);     s := s + ar[i];   end;   write(s / 6); end.