Question

Нужно сделать программу в паскаль, чтобы она открывала это изображение ​

Answer 1

Ответ:

uses graphABC;

var i,x,y: integer;

begin

setwindowsize(400,500);

setpenwidth(7);

setpencolor(clgreen);

setbrushcolor(cllime);

x:=-30; y:=440;

for i:=1 to 4 do

begin

x:=x+90;

circle(x,y,50);

end;

for i:=1 to 4 do

begin

circle(x,y,50);

y:=y-90;

end;

line(300,70,310,120);

line(360,70,350,120);

circle(300,70,10);

circle(360,70,10);

circle(310,150,10);

circle(350,150,10);

arc(330,170,5,180,0);

arc(330,180,20,210,-30);

end.