Графика: олимпийский флаг - Pascal ABC

uses graphABC;
var xc,yc,r,x,y:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=50;
clearwindow(clAqua);
setbrushstyle(bsSolid);
setbrushcolor(clWhite);
rectangle(xc-4*r,yc-3*r,xc+4*r,yc+2*r);
setpenwidth(5);
setbrushstyle(bsClear);
setpencolor(clBrown);
circle(xc,yc-r,r);
setpencolor(clBlue);
circle(xc-2*r,yc-r,r);
setpencolor(clRed);
circle(xc+2*r,yc-r,r);
setpencolor(clYellow);
circle(xc-r,yc,r);
setpencolor(clGreen);
circle(xc+r,yc,r);
end.