Question

cоставить программу вывода на экран 5 олимпийских колец разного цвета

Answer 1

uses graphabc;
var x,y,r:integer;
begin
setwindowsize(450,300);
setwindowtitle('Олимпийские кольца');
setpenwidth(1);
setpencolor(clblue);x:=100;y:=100;r:=50;circle(x,y,r);
setpencolor(clblack);x:=220;y:=100;r:=50;circle(x,y,r);
setpencolor(clred);x:=340;y:=100;r:=50;circle(x,y,r);
setpencolor(clyellow);x:=150;y:=150;r:=50;circle(x,y,r);
setpencolor(clgreen);x:=270;y:=150;r:=50;circle(x,y,r);
end.