Cum într-o aplicație de consolă puteți seta culoarea textului, afișa textul în locul potrivit

Cafenea. O mulțime neliniștită, fete pe podiumuri, chelnerițe care se grăbesc în direcții diferite. Barmanul stă în picioare, turnă pahare, vizitatorii nu au sfârșit. Deodată, un cal intră în bar, se apropie de barman și îi cere un whisky și un suc. Bărbatul este șocat, dar toarnă un pahar de whisky fără să-și ia ochii de la cal. Calul i-a răspuns și i-a spus: „De ce arăți așa, omule, nu-ți fie teamă, vin la barul tău în fiecare weekend, am mereu whisky, înțeleg.” Și de ce are nevoie barmanul. El, desigur, a fost de acord și s-a repezit imediat la directorul circului orașului. Vino la barul meu pentru weekend - pentru 500 de dolari îți voi arăta un cal vorbitor. Directorul, desigur, nu a crezut, dar s-a dus să afle ce dracu este în barul lor. Înseamnă că sosește sâmbătă seara, iar exact la ora 8 intră un cal, strigă barmanului să aducă comanda și se așează la cea mai apropiată masă liberă. Directorul nu este el însuși. El aleargă la cal, o întreabă, o roagă să cânte în circul lui. Cal la el: L: -Si cat vei plati?? D: - Sunt de acord cu 1000$ pentru ieșire!! L: - O mie, zici tu, e acolo unde platforma este atât de rotundă?? Totuși există tot felul de animale, rudele mele aleargă în cerc ?? e: -Da, el e cel, acesta este circul. l: - Ei bine, eu, în principiu, sunt de acord, dar pur și simplu nu înțeleg de ce ai nevoie de programatori în acel circ. %)

Culoarea Textului este setată de comanda SetTextColor(Color), parametrul Color este un număr întreg de la 0 la 15.

Ieșirea textului în locația specificată pe ecran este specificată de comanda GotoXY(X,Y,Text).

• Coordonatele ecranului X,Y
• Text - variabilă de tip String

Iată textul modulului, care amintește de DOS-ul nostru preferat (cum ar fi CRT):

---