Что тут не так .и если не сложно исправьте 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