[Pascal] Interfaces graphiques en Pascal

program PetitRectangle; uses Graph;
                              
var pilote,mode:smallint;
begin

// initialisation de la fenêtre graphique
{} pilote:=detect;
{} InitGraph(pilote,mode,'c:\turbo7\bgi');

// couleurs et styles de base
{} SetBkColor(14);      // fond d'écran en jaune
{} SetColor(4);         // tracé en rouge
{} SetFillStyle(1,2);   // remplissage en SolidFill vert
{} SetTextStyle(2,0,1); // texte en SmallFont horizontale en taille 1

ClearDevice;            // efface l'écran
OutTextXY(5,5,'Un petit rectangle vert :');
Bar(210,10,260,30);     // tracé du rectangle

writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.