Модуль vvod
unit vvod;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Spin, Buttons, Grids;=class (TForm): TStringGrid;: TBitBtn;: TLabel;: TSpinEdit; SpinEdit1Change (Sender: TObject);;: TForm2;
{$ R *. dfm} TForm2. SpinEdit1Change (Sender: TObject);
/ / зміна розмірності множини. ColCount:=SpinEdit1. Value;;.