Очень срочно! Пожалуйста!!! Составьте программу рисования фигуры, изображенной на рисунке! Буду очень благодарна!!!

а можно на русском?

Всмысле на русском? Что вам надо на русском?)))

//PascalABC.NET 3.1 сборка 1239uses 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.