Определите результат нижеследующего псевдокода, если n=10
алг Сумма квадратов (арг цел n, рез цел S)
дано | n > 0
надо | S = 1*1+2*2 + 3*3 + ... + n*n
нач цел i
ввод n; S:=0
нц для i от 1 до n
S:=S+i*i
кц
вывод "S = ”, S
кон
определить выходные данные;

Розбити три сирих яйця над мискою 2. додати у миску з яйцями щіпку солі 3. збити міксером суміш у мисці 4. відрізати три кружечки ковбаси 5. увімкнути конфорку 6. поставити на конфорку сковороду 7. змастити сковороду вершковим маслом 8. покласти на сковороду кружечки ковбаси 9. вилити у сковороду збиті яйця 10. смажити три хвилини 11. вимкнути конфорку ти, напевне, успішно виконав завдання на попередньому уроці. тому можна приступити до виконання більш цікавого завдання. вантажів тепер буде 5. і вага кожного з них буде більша, ніж у попередніх. перед тобою та ж сама: скласти алгоритм завантаження корабля. не забудь про розташування контейнерів.

Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10

// PascalABC.NET 3.0,сборка 1076
begin
  var n:=ReadInteger('Длина последовательности: ');
  var a:=ArrRandom(n,-50,50);
  Writeln('Исходная последовательность');
  a.Println;
  Writeln('Сумма элементов: ',a.Sum);
  Write('Кол-во четных, кратных пяти: ');
  Writeln(a.Where(x-> x mod 10 = 0).Count)
end.

Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1