Помоите решить. Циклы (паскаль). В послед a1, a2, a3, ... an каждый член, начиная с четвёртого, равен последней цифре суммы трёх предыдущих. Найти n-ый элемент последовательности. Да хотелось бы еще чтобы каждая строчка была расписана что в ней происходит.

uses crt; {Подключение внешнего модуля}

var {Описание переменных}

a:array [1 ... 100] of integer;

n, i:integer;

begin

write ('n=') ; {Вывод текста на экран}

read (n) ; {Чтение текста}

for i:=1 to 3 do

a[i]:=random (51) ; {Значение первых 3 элементов}

for i:=4 to n do

a[i]: = ((a[i-1]+a[i-2]+a[i-3]) mod 10) ; {Значение остальных элементов}

writeln ('Последовательность:') ; {Вывод текста на экран}

for i:=1 to n do

write (a[i],' ') ; {Вывод последовательности на экран}

writeln; {Перевод указателя на следующую строку}

write ('N-ный элемент: ', a[i]) ; {Вывод текста и элемента на экран}

end.