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<m) then m:=a;

end;

Writeln(m);

end.

Answer 2

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

Answer 3

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

Answer 4

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