Написать программу, которая выводит изображенный ниже узор. Turbo Pascal

uses graph;const R=100;var drive,mode:integer; path:string; x,y,i,j:integer;begin drive:=detect; InitGraph(Drive,Mode,Path); x:=400; for i:=1 to 5 do   begin    y:=100;    x:=x+150;    for j:=1 to 4 do     begin      circle(x,y,R);      y:=y+150;     end;  end;end.