C++ :

#include<cstdio>
using namespace std;
int k;
bool t;
int main(){
    int i; t=1;
    scanf("%d",&k);
    for(i=10000;i<=30000;++i)
     {
         int a,b,c;
         a=i%1000; b=i/100; c=(i-i/10000*10000)/10;
         if(a%k==0&&b%k==0&&c%k==0) printf("%d\n",i),t=0;
     }
    if(t) printf("No");
    return 0;
}

Pascal :

var
k,i:longint;
begin
 read(k);
 for i:=10000 to 30000 do
 if ((i div 100) mod k=0) and((i mod 10000 div 10)mod k=0)and((i mod 1000)mod  k=0) then
 writeln(i);
end.