nudziło mi się na systemach


skopiujcie sobie kod do pascala i odpalcie


Uses graph;
Var karta,tryb:integer;
Begin
Detectgraph (karta,tryb);
Initgraph(karta,tryb,'C:\tp\bgi');
rectangle(100,200,150,400);
rectangle(150,200,200,400);
rectangle(200,100,250,400);
rectangle(250,200,300,400);
line(300,400,380,300);
line(380,300,300,200);
readln;
closegraph;
end.


jeśli ktoś ma ciekawszy pomysł niech wrzuci