poniżej znajduje się plik który można pobrać i uruchomić

jeżeli komuś się nie uruchomi tryb graficzny to trzeba wpisać ścieżkę  dostępu do katalogu bgi pogrubiona czcionka poniżej ale jeżeli macie zainstalowanego pascala domyślnie powinno działać

program Grafika;
uses Crt,Graph;
var sterownik,tryb:integer;

begin

DetectGraph(sterownik,tryb);

InitGraph(sterownik,tryb,'C:/Progra~1/TP/BGI');
{tutaj zaczynamy wpisywać komendy}
Line(10,10,100,300);
circle(200,200,100);

{tutaj kończymy}
repeat until keypressed;
CloseGraph;

end.

plik do pobrania  pobierz