Построение графических примитивов - PascalABC.NET - Ответ 9206805

var
  x,i:integer;
  p:array of point;
procedure TextP(y:integer;s:string);
begin
  SetBrushColor(clAquamarine);
  TextOut(WindowWidth div 2 - TextWidth(s) div 2,y,s);
end;
 
begin
  x:=WindowWidth div 2;
  SetBrushColor(clBlue);
  Line(x-100, 50, x+100, 100);
  Line(x-100, 50, x, 150);
  Line(x, 150,x+100,100);
  TextP(170,'Треугольник');
  
  SetPenColor(clRed);
  SetPenWidth(2);
  SetPenStyle(psDash);
  Line(0, 190,WindowWidth,190); 
  TextP(200,'пунктирная линия');
 
  SetPenColor(clGreen);
  SetPenWidth(2);
  SetPenStyle(psSolid);
  Line(0, 223,WindowWidth,223); 
  TextP(230,'линия');
  
  SetLength(p,6);
  randomize;
  for i:=0 to 5 do begin
    p[i].X:=Random(WindowWidth);
    p[i].Y:=Random(WindowHeight-270)+250;
  end;
  SetPenColor(clViolet);
  SetBrushColor(clYellow);
  SetPenWidth(2);
  Polygon(p);
  TextP(WindowHeight-15,'Многоугольник');
   
end.