C :

#include <stdio.h>

int main() {
    for (int i = 10; i <= 1000; i ++) {
        if (!(i % 2) && !(i % 3) && !(i % 7)) {
            printf("%d\n", i);
        }
    }
    return 0;
}

C++ :

#include <stdio.h>
int a[100000];
int main()
{
	for(int i=10;i<=1000;i++)
	{
		if(i%2==0&&i%3==0&&i%7==0)
		printf("%d\n",i);
	}
	return 0;
}

Pascal :

var i:longint;
begin
  for i:=10 to 1000 do
  if i mod 2=0 then if i mod 3=0 then if i mod 7=0 then writeln(i);
end.