Напишите программу, которая вводила бы с клавиатуры 10 вещественных чисел и вычисляла бы их среднее арифметическое
в Pascal

Program Lemonly;const   n=10;var   table: array [1..n] of real;  i: integer;  sum,arifm: real;begin  randomize;  sum:=0;  writeln ('Введите ', n, ' чисел:'); for i:= 1 to n do    begin    readln(table[i]);    sum:=sum+table[i];    end;  writeln();  arifm:=sum/n;  writeln ('Cреднее арифметическое введённых чисел равно ',arifm:8:3);end.