Процедура позволяет рисовать треугольник по координатам вершин трёх точек. Нарисовать прямоугольный треугольник — Pascal(Паскаль)

uses crt,graph;
var ax,ay,bx,by,cx,cy: word; gd,gm: integer;
procedure treug (x1,y1,x2,y2,x3,y3: word);
begin
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
end;
begin
gd:=detect;
initgraph(gd,gm,'');
treug(200,100,200,250,100,250);
readkey;
closegraph;
end.