Как сделать люстру и поместить в нее эту лампочку в паскале? uses crt,graphabc; procedure drawlamp(state: boolean); begin setfontsize(20); if state = true then begin setbrushcolor(clblack); setfontcolor(clwhite); textout(200,450,'true'); end else begin setbrushcolor(clwhite); setfontcolor(clblack); textout(200,450,'false'); end; end; procedure zokol; var i: byte; begin for i: =1 to 10 do begin if odd(i) then setbrushcolor(clbrown) else setbrushcolor(cldkgray); ellipse(199,300+(i*10),301,300+(i*10)+20); end; setbrushcolor(clblack); ellipse(230,410,270,430); end; procedure dark; begin clearwindow(clblack); zokol; setpencolor(clwhite); arc(250,150,100,-60,240); line(200,230,200,320); line(300,230,300,320); floodfill(250,250,clyellow); setbrushcolor(clwhite); circle(250,150,60); end; procedure ligth; begin clearwindow(clwhite); zokol; setpencolor(clblack); arc(250,150,100,-60,240); line(200,230,200,320); line(300,230,300,320); end; var lampstate: boolean; key: char; begin setwindowsize(500,500); hidecursor; lampstate : = false; repeat if lampstate=true then dark else ligth; drawlamp(lampstate); key : = readkey; if key = 'h' then lampstate : = not(lampstate); until key = #27; end.

Uses graphabc; const       cx = 200;       cy = 200;       radius = 150; procedure chandelier(pencolor, brushcolor: color); begin       setpencolor(pencolor);       setbrushcolor(brushcolor);       line(cx, 0, cx, cy - radius);       fillpie(cx, cy, radius, 0, 180);       ellipse(cx - radius, cy - 30, cx + radius, cy + 30); end; procedure dark(); begin       clearwindow(clblack);             chandelier(clgreen, cldarkgreen);             setbrushcolor(clblack);       setfontcolor(clwhite);       textout(cx - 30, 2 * cy - 50, 'false'); end; procedure light(); begin       clearwindow(clsilver);             setbrushcolor(cllightgoldenrodyellow);       fillpie(cx, cy - radius div 2, 3 * cx, 210, 330);             chandelier(clgreen, cllime);             setbrushcolor(clyellow);       fillcircle(cx, cy - radius div 2, 35);             setbrushcolor(cllightgoldenrodyellow);       setfontcolor(clblack);       textout(cx - 30, 2 * cy - 50, 'true'); end; procedure drawlamp(state: boolean); begin       if state then               light()       else dark(); end; var       lampstate: boolean;       key: char; begin       setwindowsize(2 * cx, 2 * cy);       setfontsize(20);       lampstate : = false;             repeat               drawlamp(lampstate);               key : = readchar();               if key = 'h' then                       lampstate : = not lampstate;       until key = #27; end.

Var  a: real; begin   write('a = '); readln(a);   writeln('d = ', sqrt(2 * sqr(;   writeln('p = ', 4 * a);   writeln('s = ', sqr(a)); end.