Построить и закрасить треугольник с вершинами (50,50), (100,50), (30,140) — Pascal(Паскаль)

uses crt,graph;
var gd,gm: integer;
begin
gd:=detect;
initgraph(gd,gm,'');
line(50,50,100,50);
line(100,50,30,140);
line(30,140,50,50);
setfillstyle(6,cyan);
floodfill(53,52,15);
readkey;
closegraph;
end.