C++ :

#include<bits/stdc++.h>
using namespace std;
int main()
{
	cout<<"6"<<" "<<"7"<<" "<<"8"<<" "<<"9";
	return 0;
}

Pascal :

var a,b,c,d:longint;
begin
  for a:=1 to 10 do
    for b:=a+1 to 10 do
       for c:=b+1 to 10 do
           for d:=c+1 to 10 do
          if a*b*c*d=3024 then write(a,' ',b,' ',c,' ',d);
  end.