фракталы

uses Crt,GraphABC;
var Gd,Gm,dL,du: integer;
 procedure VECTOR( L, ugol: integer);
 {Отрезок длиной L строится под углом ugol градусов из текущего положения
курсора}
 var dx, dy: Integer;
 begin
 { составляющие вектора по осям }  dx:=round( L*cos(
ugol*pi/180));
 dy:=round( L*sin( ugol*pi/180));
  LineRel(dx,dy);
  delay(5000);
  {условие продолжения рекурсии }
  If (L>abs(dL))and(L<500)
 then VECTOR(L+dL,ugol+du); {меняем длину отрезка на dL и направление на du и производим рекурсивный
вызов}
 end;
Begin
 Gd:= 0; Gm :=0;
 InitGraphABC(Gd, Gm,' c: \bp\bgi');
 MoveTo(GetMaxX div 2, GetMaxY div 2); { начальная позиция }
 dL:=-20; du:=90; { изменение длины и угла вектора }
 VECTOR(240,0);
 ReadKey;
 CloseGraph
End.

uses GraphABC;
var dL,du,rd,gr,bl: integer;
procedure VECTOR( x,y,L,ugol:integer);
{Отрезок длиной L строится под углом ugol градусов из текущего положения курсора}
var dx,dy: Integer;
begin
{ составляющие вектора по осям }
dx:=round( L*cos(ugol*pi/180));
dy:=round( L*sin( ugol*pi/180));
rd:=rd+10;
gr:=gr+20;
bl:=bl+30;
setpencolor(RGB(rd,gr,bl));
line(x,y,x+dx,y+dy);
x:=x+dx;
y:=y+dy;
sleep(500);
{условие продолжения рекурсии }
if L>abs(dL)then VECTOR(x,y,L+dL,ugol+du); {меняем длину отрезка на dL и направление на du и производим рекурсивный
вызов}
end;
var L,x,y,u,r:integer;
begin
L:=100;dL:=-5;u:=125; du:=120; { изменение длины и угла вектора }
r:=round(L/(2*sin(pi/5)));
setwindowsize(4*L,4*L);
centerwindow;
x:=windowwidth div 2;
y:=windowheight div 2;
rd:=0;gr:=0;bl:=0;
VECTOR(x,y,L,u);
u:=u+90;
du:=90;
VECTOR(x,y,L,u);
u:=u+90;
du:=72;
VECTOR(x,y,L,u);
u:=u+90;
du:=round(360/7);
VECTOR(x,y,L,u);
end.