uses crt;
 var n:array [1..100] of integer;
 k,k1,i,l,m:integer;
 begin
 clrscr;
 write('Введите число элементов в массиве: ');
 readln (l);
 k:=1;
 i:=1;
 repeat
 write(k,' = ');     
 readln (n[i]);
 k:=k+1;
 m:=0;
 i:=i+1;
 until i>l;
 k:=1;
 repeat
 if (n[k] mod 5)=0 then 
begin
 k1:=k;
 repeat
 n[k1]:=n[k1+1];
 k1:=k1+1;
 until n[k1+1]=0;
 m:=m+1;
end
else k:=k+1;
 until n[k]=0;
 for i:=1 to l-m do
 write(n[i],', ');
 readln;
 end.