//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
    n = 4;

begin
    Window.CenterOnScreen;
    var h := 100;
    Window.SetSize(h * n, h * n);
    Pen.Width := 3;
    
    for var i := 1 to n - 1 do
    begin
        Pen.Color := clRandom;
        Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
    end;
end.