Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей. задания по Турбо Паскалю

[mir23]

1.Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей.

Ребят для экзамена нужно 8 задач кто сможет мне помочь плиз отпишите выложу все
для Турбо паскаля 7.0.

[Рико]

Помочь могу, но халявы не будет

[eoln]

Пиши eoln@mail.ru

[Serge_Bliznykov]

тоже мне, "бином Ньютона"...

uses Graph;
const
  Rad=50;
var
  grDriver,grMode,
  ErrCode          : Integer;
  i, x, y          : Integer;

begin
  {иницилизация графики}
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');{}
  ErrCode := GraphResult;
  If ErrCode<>GrOk then begin
      WriteLn('Ошибка графики: ', GraphErrorMsg(ErrCode));
      Halt(1);
  end;

  y := (GetMaxY - Rad) div 2;
  x := Rad+20;
  for i:=1 to 15 do begin
    SetColor(i);
    Circle(x, y, Rad);
    X := X + (Rad div 2);
  end;

  Readln;
  CloseGraph;
end.