Имеется пирамида, в основании которой находится квадрат со стороной из n шаров.следующий слой пирамиды состоит из шаров, лежащих в углублениях нижнего слоя, т.е. представляет собой квадрат со стороной n-1 шаров и т.д. верхний слой содержит 1 шар.определить, сколько шаров потребуется для строительства пирамиды из n слоев.

Var   N, k, i: integer; 
begin  
write(' N = ');
readln(N); 
k:=0;
for i:=N downto 1 do
 k:=k+i*i;
writeln ('k=', k);
 end.

Если, например, Х = 5 сек, то за 5 сек Флэш выпустит 2 молнии, а за 10 сек - 3.
То есть количество молний A = int(Y : X) + 1, где
Y = N*60 + M - количество отведенного времени в секундах.
Вся суть программы:
X = Input (input.txt, X); // Принимаем секунды из файла, пишем в переменную X
N = Input (input.txt, N); // Принимаем минуты из файла, пишем в переменную N
M = Input (input.txt, M); // Принимаем секунды из файла, пишем в переменную M
Y = N*60 + M; // Вычисляем отведенное время в секундах
A = int(Y : X) + 1; // Вычисляем количество молний
Output (A, output.txt); // Выводим его в файл.

Вариант №1

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  var n:=ReadInteger('Размер массива: ');
  var a:=ArrRandom(n);
  a.Println;
  var p:=1;
  for var i:=n-4 to n-1 do begin
    p:=p*a[i];
  end;
  println(p);
end.

Тестовое решение:

Размер массива:  10
26 65 88 43 49 93 67 40 16 84
3601920

Вариант №2

const k = 100;
var a:array [1..k] of integer;
i,p,n:integer;
begin
  p:=1;
  readln(n);
  for i:=1 to n do begin
    a[i]:=random(21)-10;
    write(a[i]:4);
    if i>n-4 then p:=p*a[i];
  end;
  writeln;
  writeln(p);
end.

Тестовое решение:

10
  -8   6   1   3   1 -10  -3   2   2   2
-24