program qq;
var a,b,c:array[1..15] of integer;
    i,j:integer;
   
begin
for i:=1 to 15 do
 a[i]:=random(100)-50;
for i:=1 to 15 do
 write(a[i], ' ');
writeln();
for i:=1 to 15 do
 if a[i] mod 5 = 0 then
  if a[i]<>0 then
  begin
   j:=j+1;
   b[j]:=a[i];
   c[j]:=i;
  end;
write('Числа кратные 5: ');
for i:=1 to 15 do
 if b[i]<>0 then
 write(b[i] ,' ');
writeln();
write('Их порядковые номера: ');
for i:= 1 to 15 do
 if c[i]<>0 then
 write(c[i], ' ');
writeln();
end.