Решить алгоритм в паскале ABC

Question

Решить алгоритм в паскале ABC

---

Answer 1

var n,i,m,pp,a:integer;

Begin

pp:=0;

m:=0;

Readln(n);

for i:=1 to n do Begin

Readln(a);

if (pp=0) and (a mod 3=0) then Begin

pp:=1;

m:=a;

end;

if (pp=1) and (a mod 3=0) and (a

end;

Writeln(m);

end.

Comments

Program1.pas(11) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

---

Readln(n);

---

i в переменные добавил?

---

Не-а, вообще не шарю как делать :|| Помоги пожайлуста

---

полностью скопируй

---

То что ты написал? Так и сделал, ошибку сверху выдало

---

А в обычном паскале жалуется на pp:=1;

---

должно все работать

---

паскаль попробуй обновить, хз

---

у меня все работает