Напишите на паскале. : среди первых n чисел трибоначчи вывести на экран только кратные 3.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017

var
  N: integer;

function tri(n: integer): longint;
begin
  case n of
    0,1: tri := 0;
    2: tri := 1
  else
    tri := tri(n - 3) + tri(n - 2)+tri(n-1);
  end;
end;

var
  a: array of integer;
  i: longint;

begin
  readln(N);
  setlength(a, N);
  for i := 0 to N-1 do
    Write(tri(i) + ' ');
  for i := 0 to N-1 do
    a[i] := tri(i);
  writeln('');
  for i := 0 to N-1 do
    if a[i] mod 3 = 0 then
      write(a[i] + ' ');
end.

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

function Tribonacci(n:integer):integer;
begin
  case n of
  0,1:Result:=0;
  2:Result:=1;
  else Result:=Tribonacci(n-3)+Tribonacci(n-2)+Tribonacci(n-1)
  end
end;

begin
  SeqGen(ReadInteger('n='),i->Tribonacci(i)).Where(k->k mod 3=0).Println
end.

Пример
n= 20
0 0 24 81 504 927

//PascalABC.NET версия 3.3.5

var  ar: array[0..3] of integer;
  digits: array[0..9] of integer;
  out: array[1..4, 1..7]of integer;

begin
  for var i := 0 to 9 do
    digits[i] := 0;
  var sum := 0;
  for var i := 1 to 2 do
  begin
    out[i][1] := 1053;
    out[i][2] := 1077;
    out[i][3] := 1074;
    out[i][4] := 1077;
    out[i][5] := 1088;
    out[i][6] := 1085;
    out[i][7] := 1086;
  end;
  out[4][1] := 1053;
  out[4][2] := 1077;
  out[4][3] := 1074;
  out[4][4] := 1077;
  out[4][5] := 1088;
  out[4][6] := 1085;
  out[4][7] := 1086;

  out[3][1] := 1042;
  out[3][2] := 1077;
  out[3][3] := 1088;
  out[3][4] := 1085;
  out[3][5] := 1086;
  out[3][6] := 160;
  out[3][7] := 160;
  var num := readinteger('Введите четырехзначное число:');
  ar[3] := num mod 10;
  ar[2] := num div 10 mod 10;
  ar[1] := num div 100 mod 10;
  ar[0] := num div 1000;
  for var i := 0 to 3 do
    digits[ar[i]] += 1;
  for var i := 0 to 9 do
    try
      sum += digits[i] div digits[i];
    except
      on System.DivideByZeroException do   
end; 
for var i := 1 to 7 do
    write(chr(out[sum][i]));
end.

Среди множества редких профессий можно выделить самую редкую. Это смотритель райского острова. Потребность в такой профессии возникла, когда понадобилось найти человека, который занимался бы пропагандой отдыха на райских островах.Одна из туристических компаний искала человека, который на протяжении шести месяцев проживал бы на острове в вилле, плавал в бассейне, нырял с аквалангом, фотографировал, играл в гольф и вёл свой блог. Такой смотритель понадобился для одного из австралийских островов. Его название – Гамильтон.После проведения всемирного конкурса, достойная кандидатура была определена. Зарплата за полгода составила сто десять тысяч долларов. Обладателем данной профессии является всего один человек в мире, именно поэтому она и одержала победу среди претендентов на роль самой редкой.