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

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

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

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.