program ideone;
var
a, i : Integer;
nums : Array of Integer;
begin
WriteLn('введите число');
ReadLn(a);
SetLength(nums, a);
for i := 0 to a-1 do
nums[i] := i+1;
for i :=0 to a-1 do
Write(nums[i], ' ');
ReadLn;
end.
cHJvZ3JhbSBpZGVvbmU7Cgp2YXIKIGEsIGkgOiBJbnRlZ2VyOwogbnVtcyA6IEFycmF5IG9mIEludGVnZXI7CmJlZ2luCiBXcml0ZUxuKCfQstCy0LXQtNC40YLQtSDRh9C40YHQu9C+Jyk7CiBSZWFkTG4oYSk7CiBTZXRMZW5ndGgobnVtcywgYSk7CiBmb3IgaSA6PSAwIHRvIGEtMSBkbwogbnVtc1tpXSA6PSBpKzE7CiBmb3IgaSA6PTAgdG8gYS0xIGRvCiBXcml0ZShudW1zW2ldLCAnICcpOwogUmVhZExuOwplbmQu