uses crt,graph; var gk,m:integer; begin clrscr; detectgraph(gk,m); initgraph(gk,m,'e\:tp\bgi); line(200,200,400,400); line(220,220,400,400); readln; closegraph; end.