Недавнее содержимое от Gespo

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); // кординаты...

Здравствуйте, Владимир. Не могли бы вы мне помочь такого же рода заданием только на Delphi.