Нарисовать олимпийские кольца в abc pascal

uses graphABC;

function ris (x, y, r, n:integer) : integer;

begin

if n=0 then ris:=0

else

begin

circle (x, y, r);

dec (n);

ris:=ris (x+round ((r-r/3) * cos (pi/3)), y-round ((r-r/3) * sin (pi/3)), r div 3, n); ris:=ris (x+round ((r-r/3) * cos (2*pi/3)), y-round ((r-r/3) * sin (2*pi/3)), r div 3, n); ris:=ris (x+round ((r-r/3) * cos (pi)), y-round ((r-r/3) * sin (pi)), r div 3, n)

ris:=ris (x+round ((r-r/3) * cos (4*pi/3)), y-round ((r-r/3) * sin (4*pi/3)), r div 3, n); ris:=ris (x+round ((r-r/3) * cos (5*pi/3)), y-round ((r-r/3) * sin (5*pi/3)), r div 3, n); ris:=ris (x+round ((r-r/3) * cos (2*pi)), y-round ((r-r/3) * sin (2*pi)), r div 3, n);

end

end;

var x, y:integer;

begin

x:=windowwidth div 2;

y:=windowheight div 2;

ris (x, y, 200,5);

end.

Сначала обычный шаблон паскаля (program, var и т. д.)

потом writeln ( ...) там рисуешь кольца с помощью разных знаков (/. _ - |/)