Сделать в паскале

задано масив а(15) цілих чисел. вивести кількість елементів кратних 3 та їх місце знаходження в масиві. введення елементів передбачити з клавіатури, відповідними повідомленнями на екрані. вивести результати виконаних обчислень. вивести елементи масиву в рядок через декілька пропусків.

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

20 - 25 = -5

-5 в десятичной системе

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4