var num:array of integer; i,kol:integer; begin Write('Kolvo: '); Readln(kol); SetLength(num,kol); For i:=1 to kol do num[i]:=i;