Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. допишите программу заменив пропущ. элементы заменив пропущ элементы кода в скобах и сих поряд номером позволяющий найти и вывести количество пар элементов массива, в которых хотя бы одно число делится на 3. В данной задаче под парой подразумевается два подряд идущих элемента массива. Например, для массива из пяти элементов: 6; 2; 9; –3; 6 – ответ: 4. ответ должен содержать последовательнрсть пропущеных элементов кода в соотве. с их номерами

1.
var a, b, s: real;
begin
readln(a, b);
s:=s*b;
writeln(s);
end.

2.
var a, b, c, d, s: real;
begin
readln(a, b, c, d);
s:=a+b+c+d;
writeln(s);
end.

3.
var a, b, c, mult: real;
begin
readlb(a, b, c);
mult:=a*b*c;
writeln(mult);
end.

4.
var a, h, s: real;
begin
readlb(a, h);
s:=a*h;
writeln(s);
end.

5.
var a, b, o: real;
begin
readln(a, b);
o:=a/b;
writeln(o);
end.

6.
const pi=3.14;
var r, l: real;
begin
readln(r);
l:=2*pi*r;
writeln(l);
end.

7.
const pi=3.14;
var r, s: real;
begin
readln(r);
s:=pi*sqr(r);
writeln(s);
end.

8.
var a, s: real;
begin
readln(a);
s:=sqr(a);
writeln(s);
end.

9.
var a, h, s: real;
begin
readln(a, h);
s:=a*h;
writeln(s);
end.

10. хз что это.

Var
  a,b,c,p,q,h,x,y:real;
begin
  Write('Введите через пробел коэффициенты a,b,c: ');
  Read(a,b,c);
  Write('Введите через пробел границы интервала [p;q]: ');
  Read(p,q);
  Write('Введите шаг табуляции h: ');
  Read(h);
  x:=p;
  while x<=q+h/10 do begin
    y:=c+x*(b+x*a); { схема Горнера для вычисления значения полиномов }
    Writeln(x:15:8,y:15:8);
    x:=x+h
  end
end.

Тестовое решение:
Введите через пробел коэффициенты a,b,c: -4 2.7 10.582
Введите через пробел границы интервала [p;q]: -3 2.5
Введите шаг табуляции h: 0.25
    -3.00000000   -33.51800000
    -2.75000000   -27.09300000
    -2.50000000   -21.16800000
    -2.25000000   -15.74300000
    -2.00000000   -10.81800000
    -1.75000000    -6.39300000
    -1.50000000    -2.46800000
    -1.25000000     0.95700000
    -1.00000000     3.88200000
    -0.75000000     6.30700000
    -0.50000000     8.23200000
    -0.25000000     9.65700000
     0.00000000    10.58200000
     0.25000000    11.00700000
     0.50000000    10.93200000
     0.75000000    10.35700000
     1.00000000     9.28200000
     1.25000000     7.70700000
     1.50000000     5.63200000
     1.75000000     3.05700000
     2.00000000    -0.01800000
     2.25000000    -3.59300000
     2.50000000    -7.66800000