помогите пожалуйста решить задачку,очень надо

[__k1ll3r__]

помогите решить задачку,очень надо:

1.Подсчитать количество элементов кратных пяти вывестина экран их номера их значения в массиве из 17 чисел.

2.Подсчитать произвводные элементов кратных трем и не равных 9 в массиве из 13 чисел

помогите решить,надо срочно,буду очень благодарен за помощь.а то училка убьёт сегодня
заранее благодарю

[ryton]

program m17;
uses crt;
var
a:array[1..17] of integer;
i:integer;
begin
for i:=1 ro 17 do
readln(a[i]);
for i:=1 to 17 do
if a[i] mod 5 =0 then
writeln(a[i],i);
end.

[Stilet]

Ну примерно так:

var b,a:array[0..16] of integer;i:integer;
begin
 for i:=0 to 16 do begin
  a[i]:=random(100);
  if a[i] mod 5=0 then begin b[i]:=i;end else b[i]:=0;
  write(a[i],',');
 end;
 write(номера кратных 5яти)
 for i:=0 to 16 do begin
  if b[i]<>0 then write(a[i],',');
 end;
end.