Uses GRAPH;-подключение модуля {обязательно.пишется после program<название>}
INITGRAPH(d,m,' ');- инициализация графического режима {обязательно}
line(x1,y2,x2,y2);-линия {например line (40,10,300,20);}
rectangle(x1,y1,x2,y2);-прямоугольник {x1,y1-координата левого верхнего угла,x2,y2-координата правого нижнего угла}
circle(x,y,r);-окружность {x,y-координата центра, r- радиус}
вот пример графической программы (телевизор)
program <название>;
uses crt,graph;
var
d,m:integer;
begin
INITGRAPH(d,m,' ');
rectangle(200,300,500,500);
rectangle(250,350,450,450);
line(200,300,350,300);
line(400,200,350,300);
line(250,500,200,600);
line(450,500,500,600);
readln;
end.
