Hogyan utazz ingyen a buszokon?

Buszjegy variációk: összesen 84 db variáció van, feltéve, hogy egy kombináció három számjegyből áll, és a számok 1 és 9 közül kerülhetnek ki, es egy kombinációnak három különböző számjegyből kell állni. (nem lehet pl. 122 a kombináció, mert a 2 kétszer szerepel) Alul találod a Pascal forrást, ami generalja a kombinációkat. Futtasd a programot, nyomtasd ki a kombinációkat, es gyűjtsd az elhasznált buszjegyeket, és huzogasd ki a kombinációkat, amik már megvannak. Igy minimális befektetéssel egy idő után ingyen utazhatsz a buszokon.
Ime...
Program Buszjegy;
Uses Crt;
Var
I,J,K: Byte;
Szamlal: Integer;
Begin
ClrScr;
Szamlal:=0;
For I:=1 To 7 Do
For J:=I+1 To 8 Do
For K:=J+1 To 9 Do
Begin
Szamlal:=Szamlal+1;
Write(I,J,K,' ');
End;
GotoXY(1,WhereY+1);
TextBackground(Blue);
TextColor(White);
Write(#10,#7,'Osszes kombinacio: ',Szamlal);
Repeat
Until KeyPressed;
End.