View.Set("graphics:max,max")

proc drawtri(x,y,size:int)
var height:int:=round(sqrt(size**2 - (size/2**2)))
       drawline(x,y,x+size,y,1)
       drawline(x,y,x+size div 2,y +height,1)
       drawline(x + size,y,x+size div 2,y+height,1)
       end drawtri