Нарисуйте в центре экрана олимпийские кольца в паскаль

типо такого, а вы подправьте дальше сами.

uses GRAPHABC;

begin

//circle(x,y,r);
circle(250,90,45);
circle(350,90,45);
circle(450,90,45);
circle(311,135,45);
circle(400,135,45);
readln
end.