Проверте кто то на правильность

[Іван Савків]

Ето програма для вычисления подмножеств множества

[Stilet]

Я тебя разочарую - картинку не видно.

[Іван Савків]

я кинул ссылку на фотку вк
http://vk.com/doc142359081_423635778...876e00e4507111
уже видно?
что здесь не так?

[Stilet]

что здесь не так?

Вроде бы все более-менее. Добавить readln перед последним end, чтоб консоль не закрывалась и должно работать.

[type_Oleg]

А вот тут - первый - заполняет от 1 до n - с клавы, второй - от 1 до k - числами подряд.
То есть элементы массива от 1 до min(n,k) будут два раза присваиваться.
Так и надо ?
Это само по себе не ошибка, просто считается дурным тоном.

[Іван Савків]

О спасибо и еще один вопрос как вывести ети все подмножества на екран?
Ах да и еще программа цыклит если можете попробуйте у себя=)
И программа запрошывает когда я увожу n=5 i k=2 то пишу 5 потом 2 и еще нужно 5 ввести и цыклит
я делал по етому примеру http://http://vk.com/doc142359081_423868354?hash=635ba07 620e6ab9745&dl=ec2730cf1281710018