ПАСКАЛЬ АБС 8 КЛАСС ПОМОГИТЕ ПОЖАЛУЙСТА!

Question

ПАСКАЛЬ АБС 8 КЛАСС ПОМОГИТЕ ПОЖАЛУЙСТА!

Аля Гуетто Знаток (350), на голосовании 5 лет назад

Напишите программу, которая будет выводить на экран элементы последовательности трибоначчи - первые элементы последовательности: 0, 0, 1, 1, 2, 4, 7, 13, 24, 44, 81, 149, ..Каджый элемент, начиная с четвертого, равен сумме трех предыдущих: a(n)=a(n-1)+a(n-2)+a(n-3).
(Что в скобах, это пишется снизу а, в учебнике, просто на ноутубке так не смогла) помогите пожалуйста.

Answer 1

я так понимаю, что нужно написать
program xyi;
var
    a:array[0..100] of integer;
    i, n : integer;
begin
    readln(n);
    a[1] := 0;
    a[2] := 0;
    a[3] := 1;
    writeln(0);
    writeln(0);
    writeln(1);
    for i:= 4 to n do
    begin
        a[i]:=a[i - 1] + a[i - 2] + a[i - 3];
        writeln(a[i])
    end
end.

Жду благодарности.
Спасибо в карман не положишь ;-)

Answer 2

Количество выводимых чисел не указано, Пример для первых 20 чисел
var a,a1,a2,a3,i: integer;
begin
a1:=0;a2:=0;a3:=1;
write(a1,' ',a2,' ',a3,' ');
for i:=4 to 20 do
begin
a:=a1+a2+a3;
write(a,' ');
a1:=a2;a2:=a3;a3:=a
end;
end.