var a: array[1..30] of integer;
Begin
D:=0;
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, ' so khong chia het cho 5);
For i:=1 to n do
If a[i] mod 5 <> 0 then write(a[i], ' ');
Readln
End.