Napisz procedurę która pozwoli wyświetlić dowolny napis, w dowolnym kolorze,w dowolnym miejscu na ekranie. Zastosuj ją w programie.

{--------Text Mode--------} procedure WriteOnScreenTM(TextToWrite: String; ColorText,X,Y: Byte); begin SetColor(ColorText); GoToXY(X,Y); Write(TextToWrite); end; {--------Graph Mode--------} procedure WriteOnScreenGM(TextToWrite: String; ColorText: Byte; X,Y: Integer); begin SetColor(ColorText); OutTextXY(X,Y,TextToWrite); end;

Turbo Pascal.Napisz procedurę która pozwoli wyświetlić dowolny napis, w dowolnym kolorze,w dowolnym miejscu na ekranie. Zastosuj ją w programie.

Turbo Pascal.Napisz procedurę która pozwoli wyświetlić dowolny napis, w dowolnym kolorze,w dowolnym miejscu na ekranie. Zastosuj ją w programie....