Код
uses graphABC;
begin
setwindowsize(700,500);//габариты окна, т.е. середина где-то 350 и 250 пикс
// рисуем цепь
setpenwidth(2);
line(0,30,700,30);
line(340,20,340,40);
line(350,5,350,55);
setpenwidth(4);
setpencolor(clwhite);
line(341,30,349,30);
setpencolor(clblack);
setpenwidth(6);
drawcircle(100,30,2);
drawcircle(600,30,2);
setpenwidth(2);
line (100,30,100,400);
line (600,30,600,400);
line(100,400,250,400);
line(600,400,460,400);
line(250,400,250,320);
line(460,400,460,320);
// рисуем вольтметр
setpenwidth(3);
drawrectangle(150,80,550,350);
drawrectangle(190,120,510,280);
drawcircle(250,320,4);
drawcircle(460,320,4);
setfontsize(25);
setfontcolor(clblue);
textout(222,298,'-');
setfontcolor(clred);
textout(480,301,'+');
// табло с делениями
ARC(350,500,300,60,120);
setfontcolor(clblack);
textout(340,230,'V');
setfontsize(15);
textout(337,150,'1.5');
textout(195,195,'0');
textout(493,195,'3');
line(201,238,193,225);
line(499,239,507,227);
line(350,180,350,200);
end.