ЧТО ТУТ НЕ ТАК .И ЕСЛИ НЕ СЛОЖНО ИСПРАВЬТЕ 90 БАЛОВ ЗА ОТВЕТ!!!
var
a: array [1..20] of integer;
i,j,k:integer
begin
for i:=1 to 20 do
begin
read(a[i]);
end;
j:=0;
k:=0;
for i: 1 to 20 do if a[i] mod3=0 then j:=j+1 or a[i+1] mod3=0 then j:=j+1;
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k
wrineln [j];
end