Создать массив b 7 элементов в интервале от 0 до 10 , заменить все элементы кратные 3 на сумму элементов массива.

var a:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to 7 do begin a[i]:=random(9)+1; s:=s+a[i]; end;
for i:=1 to 7 do write(a[i],' ');
writeln;
for i:=1 to 7 do if a[i] mod 3=0 then a[i]:=s;
for i:=1 to 7 do write(a[i],' ');
end.