Скласти програму для знаходження суми чисел від 1 до 256, кратних числу 3

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
  a.Println(2)
end.

Примеры
n= 7
  0  0  0  0  0  0  7
  0  0  0  0  0  6  0
  0  0  0  0  5  0  0
  0  0  0  4  0  0  0
  0  0  3  0  0  0  0
  0  2  0  0  0  0  0
  1  0  0  0  0  0  0

n= 12
  0  0  0  0  0  0  0  0  0  0  0 12
  0  0  0  0  0  0  0  0  0  0 11  0
  0  0  0  0  0  0  0  0  0 10  0  0
  0  0  0  0  0  0  0  0  9  0  0  0
  0  0  0  0  0  0  0  8  0  0  0  0
  0  0  0  0  0  0  7  0  0  0  0  0
  0  0  0  0  0  6  0  0  0  0  0  0
  0  0  0  0  5  0  0  0  0  0  0  0
  0  0  0  4  0  0  0  0  0  0  0  0
  0  0  3  0  0  0  0  0  0  0  0  0
  0  2  0  0  0  0  0  0  0  0  0  0
  1  0  0  0  0  0  0  0  0  0  0  0

Последовательность Фибоначчи.

Следующий элемент: 34 + 55 = 89


Записываем все натуральные числа подряд и разбиваем их на цифры


о, д, т, ч, п, ш, с, в, д, д, ...
Выписываем натуральные числа в ряд. Каждому натуральному числу сопоставляем первую букву его названия.
1 -> о (один)
2 -> д (два)
...
10 -> д (десять)
11 -> о (одиннадцать)

Первый элемент 1. Каждый следующий элемент образуется так: выделяем цифру, считаем, сколько раз она встречается подряд в этом числе, начиная с текущей позиции и приписываем в конец нового числа пару (сколько раз цифра встречается подряд, сама цифра)
1) 1
2) 1 встречается 1 раз. Значит, пишем 11
3) 1 встречается 2 раза. Значит, пишем 21
3) 2 встречается 1 раз. Значит, пишем 12. 1 встречается 1 раз. Значит, пишем 11. Получилось 1211
4) 1 встречается 1 раз. Значит, пишем 11. 2 встречается 1 раз. Значит, пишем 12. 1 встречается 2 раза. Значит, пишем 21. Получилось 111221.
5) аналогично
6) 3 встречается 1 раз. Значит, пишем 13. 1 встречается 1 раз. Значит, пишем 11. 2 встречается 2 раза. Значит, пишем 22. 1 встречается 2 раза. Значит, пишем 21. Получилось 13112221