Program ggl;var  n, i, sum : integer;  a : array [1..1000] of integer;begin  readln (n);  sum := 0;  for i := 1 to n do  begin    a[i] := random (100);    write (a[i], ' ');    sum := sum + a[i];  end;  writeln;  write (sum / n...

program ggl; Это название программы var  n, i, sum : integer;  Описание переменных a : array [1..1000] of integer; Описание массива а (он целочиленный, в интервале от 1 до 1000) begin  readln (n); Начало программы, запрос значение переменной n  sum := 0; Присвоение переменной sum значение 0 begin  readln (n);   sum := 0;   for i := 1 to n do  begin     a[i] := random (100);     write (a[i], ' ');     sum := sum + a[i];   end;   begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран. После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается. writeln;   write (sum / n); end. Вывод значения деления переменной sum на переменную n. Конец всей программы.