var a: array[1..30] of integer;
d, i: byte;
Begin
for i:=1 to 30 do
Begin
Write('a[', i, '] = '); readln(a[i]);
If (a[i] mod 5<>0) then inc(d);
End;
Writeln('co ', d, ' phan tu thoa man');
For i:=1 to n do if (a[i] mod 5<>0)
then write(a[i], ' ');
Readln
end.