Проверить правильность программы.

[JellyFilled]

Здравствуйте, товарищи программисты. Я тут написал код для нужной мне программы, не могли бы вы проверить его на правильность.
Программа нахождения элемента последовательности по его номеру.
a1=1, an=an-1+последняя цифра числа (an-1)+1.

Var a1,an,n,i:integer;
Begin 
    Repeat
     write('N: ');readln(n);
    Until n>0;
    a1:=1;
    For i:=2 to n do
    Begin
      an:=a1+(a1+1) mod 10;
      a1:=an;
    End;
    writeln('an = ',an);
    readln;
End.

[min@y™]

ахринеть! а проверить, типа, на компе - запретили?

[WorldMaster]

Сообщение от min@y™

ахринеть! а проверить, типа, на компе - запретили?

Пока писал код очень сильно устал. Тут ведь такие сложные алгоритмы ... вот и решил тестерам передать

[Stilet]

А "mod 10" зачем?

[Serge_Bliznykov]

А "mod 10" зачем?

думаю, что для того, чтобы найти:

+последняя цифра числа

насчёт правильности ничего не скажу, ибо не очень понимаю, как последовательность формируется... Условие задачи должно быть с нормальной формулой (в виде картинки, например)
Вот, например, в задании написано an=an-1
а в коде (a1+1)