Составить программу паскаль, которая выводит на экран олимпийские кольца.Срочно, заранее

безотлагательно это сколько? срочность бывает разная. И какой язык?

какой из паскалей

к завтрашнему деньку надобно

у меня написано что на языке паскаль. британский

пользуйтесь поиском

спасибо))))

Uses crt,graph;
var
  gd, gm, xc, yc, r, x, y: integer;

begin
  clrscr;
  repeat
    writeln('Vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]:');
    readln(xc, yc);
  until((xc gt;= 50) and (xc lt;= 300)) and ((yc gt;= 50) and (yc lt;= 350));
 
  gd := 0;
  initgraph(gd, gm, '');
  setbkcolor(15);
  cleardevice;
 
  r := 50;
  setlinestyle(0, 0, 3);
  setcolor(9);
  circle(xc, yc, r);
  setcolor(8);мрачно-сероватый, черный не нарисовать
  circle(xc + 2 * r, yc, r);
  setcolor(12);
  circle(xc + 4 * r, yc, r);
  setcolor(14);
  circle(xc + r, yc + r, r);
  setcolor(10);
  circle(xc + 3 * r, yc + r, r);
  readln
end.