uses crt,graph;
var
d,m,n,i:integer;
procedure rec(x,y:integer;alfa:real;n,l:integer);
begin
line(x,y,x+round(l*cos(alfa)),y+round(l*sin(alfa)));
if n>0 then
begin
rec(x+round(l*cos(alfa)),y+round(l*sin(alfa)),alfa+Pi/4,n-2,l div 2);
rec(x+round(l*cos(alfa)),y+round(l*sin(alfa)),alfa-Pi/4,n-1,5*l div 7);
end;
end;
begin
clrscr;
randomize;
writeln('Labaakam rezultaatam ievadiit no 10 liidz 20');
writeln('Lai izietu, ievadiet 0!');
write('n=');
readln(n);
while not keypressed do begin
initgraph(d,m,'');
setcolor(random(15)+1);
rec(GetMaxX div 2-100,-100,Pi/2,n,200);
for i:=1 to 8 do delay(100);
closegraph;
end;
end.