[Помогите!] Найти ошибку

[C9H13N]

Здравствуйте!
Помогите найти ошибку
(в задании 25, var/begin есть)
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

[MembRupt]

Лишний end

[C9H13N]

Цитата: Сообщение от MembRupt Лишний end

благодарю. А пофакту кроме лишнего end, все правильно?

[doqsoftware]

j:= j + 1;
i:= i + 2;
R:= (a[i] + ....
j:= R;
j:= -1;
и ; после end в #25

[MembRupt]

Цитата: Сообщение от C9H13N благодарю. А пофакту кроме лишнего end, все правильно?

Исправить присваивания, как выше написали, а в логике программы только лишний end (который первый)
Еще пропущена инициализация переменной j (хотя не уверен, что обязательно):
j:=0;