Составить программу нахождения среднего арифметического таблицы ( на языке паскаль

Если таблицей считать матрицу n*m то может получиться так:

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var s:=0;
  var n:=ReadlnInteger('Введите N');
  var m:=ReadlnInteger('Введите M');
  var a:=MatrixRandom(n,m); println(a);
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do s:=s+a[i,j];
  println('Среднее арифметическое:',s/(n*m));
end.

Авторское право — в объективном смысле институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
Скачивание информации из Интернета - иногда может быть опасным т.к. на некоторые файлы/информацию распространяется авторское право. Тем самым можно навредить себе если информация будет использоваться в публичных целях.

Могу примерный план , может , что то пригодится.
1. Женя купила семь баранок. 2. Собака съела все баранки. 3. Старушка дала Жене цветик-семицветик. 4. Женя загадала желание и оказалась дома. 5. Она оторвала второй лепесток. 6. Вазочка стала целой. 7. Женя пошла во двор. 8. Она загадала желание и очутилась на Северном полюсе. 9. Женя оторвала четвертый лепесток и вернулась во двор. 10. Она загадала, чтобы появилось много игрушек. 11. Куклы, машинки, мячики заполнили все улицы. 12. Женя оторвала шестой лепесток. 13. Игрушки пропали. 14. Женя увидела больного мальчика на скамейке. 15. Женя загадала желание. 16. Мальчик выздоровел.