domceky, domceky v pascale

uses graph;
procedure dom(dlzka:word);
var vyska:word;
begin
v:=trunc(sqrt(d*d-d*d/4)
moveto(getmaxx/2,getmaxy/2);
linerel(d/2,-v);linerel(d/2,v);linerel(0,d);linerel(-d,0);linerel(0,-d);inerel(d,0);
end;
BEGIN initgraph(blablabla);
dom(100); {pozor je to v pixeloch}
readln;closegraph;END.

program domceky;
uses crt,graph;
var gd,gm,i,ulica: integer;

procedure dom(n: integer);
     var vyska,x: integer;
begin
     rectangle(20+ulica,400,20+n+ulica,400-n);
     vyska:=trunc(1.732050808*n/2);
     x:=trunc(n/2);
     line(20+ulica,400-n,20+x+ulica,400-n-vyska);
     line(20+x+ulica,400-n-vyska,20+n+ulica,400-n);
     ulica:=ulica+n;
end;

begin
     clrscr;
     detectgraph(gd,gm);
     initgraph(gd,gm,'..\BGI');
     randomize;
     repeat
           dom(random(150)+50);
     until ulica > getmaxx-100;

     readkey;
     closegraph;



end.