var A, B: Array of TPoint;
i: Integer;
n: Integer;
S, P: Real;
x0, y0: Integer;
begin
n :=Strtoint(Edit1.Text); // кол-во углов
S := 0;
P := 0;
x0 := ClientWidth div 2;
y0 := ClientHeight div 2;
SetLength(A, n);
SetLength(B, n);
// кординаты ..........возможно ли координаты сделать динамическими???
A[0].X := 0;
A[0].Y := 0;
A[1].X := 0;
A[1].Y := 3;
A[2].X := 1;
A[2].Y := 4;
A[3].X := 3;
A[3].Y := 0;
A[4].X := 2;
A[4].Y := -3;
A[5].X := 1;
A[5].Y := -5;