{* Изображение из повторяющейся фигуры *}

Unit IZO_2;
Interface
Implementation
Begin
 writeln('Изображение, состоящее из одной повторяющейся геометрической фигуры.');
End.

Program pas0;

Uses izo_2.pas; {* Эту строку можно удалить *}
Uses graph; {* Подключение модулей *}
Var {* Объявление переменных *}
  g : integer;
  h : integer;
  x : integer;
  y : integer;
Begin
  g := detect;
  initgraph(g, h, '');
  randomize;
  y := 0;
  Repeat          x := 0;
    Repeat              setcolor(10);
      moveto(x, y + 50);
  lineto(x + 30, y);
  lineto(x + 30, y + 50);
  setcolor(random(10) + 6);
  circle(x + 30, y + 50, 20);
  x := x + 60;
  Until x > 800;
  y := y + 100;
  Until y > 600;
  readln
End.