Задача третья.................

const n=20; 
var a:array[1..n] of integer;
k,i:integer; 
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=2 to n do
 if (a[i-1] mod 3 = 0)or(a[i] mod 3 = 0) then k:=k+1;
writeln('k = ',k);  
end.

Пример:
Исходный массив:
1  -5  -6  9  -9  -2  -3  10  1  3  -4  2  -2  1  3  -4  -6  6  8  2  
k = 13