Паскаль АВС: В целочисленном массиве В[6] определить сумму положительных элементов делящихся на 3 без остатка и поставить её на место максимального элемента массива А[5].

uses crt;

var

 i,sum: integer;

 b: array[1..6] of integer;

begin

 clrscr;

for i := 1 to 6 do

   readln(b[i]);  

 for i := 1 to 6 do

   if (b[i] mod 3 = 0) then  

     sum := sum + b[i];

 b[5] := sum;

end.

///Не знаю, что выводить на экран, т. к. в условии об этом ничего не сказано.