Нарисуйте в центре экрана Олимпийские кольца в Паскаль
типо такого, а вы подправьте дальше сами.
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.