Написать програму на с++ для решения ребуса(использовать множество) ракета+орбита=космос

/ребус#include< conio.h> #include< iostream.h> void main(){ *int i,j,r; * long int buk,slo,a[8]; * clrscr(); * for(a[0]=1; a[0]< =3; a[0]++)* *for(a[1]=0; a[1]< =9; a[1]++)* * for(a[2]=0; a[2]< =9; a[2]++)* * *for(a[3]=0; a[3]< =9; a[3]++)* * * for(a[4]=0; a[4]< =9; a[4]++)for(a[5]=1; a[5]< =9; a[5]++) for(a[6]=0; a[6]< =9; a[6]++) *for(a[7]=0; a[7]< =9; a[7]++)  * * { *buk=a[0]*10000+a[1]*1000+a[2]*100+a[3]*10+a[4]; slo=a[5]*10000+a[6]*1000+a[7]*100+a[3]*10+a[7]; * *if(buk*3==slo) * *{ r=0; * * * * * * * * * //проверка того, что * * *for(i=0; i< 8; i++) * * //разным буквам соответствуютfor(j=i+1; j< 8; j++) *//разные цифры *if(a[i]==a[j]) r++; *if(r==0)cout< < buk< < " + " * * < < buk< < " + " * * < < buk< < " = " * * < < slo< < endl; * *} * * *}getch();

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

(3+3·3): 3=4

(3·3+3): 3=4

================

3+3–(3: 3)=5

(3+3): 3+3=5

================

3+3+(3–3)=6

3-3+3+3=6

3·3: 3+3=6

(3+3): 3·3=6

================

3: 3+3+3=7

3+3: 3+3=7

================

3·3–3: 3=8

================

3·3·3: 3=9

3: 3·3·3=9

3·3+3-3=9

3+3·3-3=9

================

3: 3+3·3=10

3·3+3: 3=10