uses crt;
var n,i:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('nhap so luong phan tu cua mang:');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  for i:=1 to n do if(a[i] mod 5=0)then write(a[i],' ');
 readln
end.

Python:

n=int(input('nhap n: '))
a=[int(input('nhap a[%d]: '%i)) for i in range (1,n+1)]
print('cac phan tu la boi cua 5 la:',end=' ')
[print(a[i],end=' ') for i in range (n) if (a[i]%5==0)]

C++:

#include <iostream>
using namespace std;
int main()
{
    long n;
    cout << "nhap n: ";
    cin >> n;
    long a[n];
    for  (long i=0; i<n; i++)
    {
        cout << "nhap a[" << i+1 << "]: ";
        cin >> a[i];
    }
    cout << "cac phan tu la boi cua 5 la: ";
    for (long i=0; i<n; i++)
    {
        if (a[i]%5==0) cout << a[i] << " ";
    }
}

$\color{red}{\text{#Daoanhviet96}}$