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