Crank51O, в кавычках

miha, щас дам основу Var n: byte; ...... 1: writeln ("bla bla bla"); ...... Как сделать что бы вводить вместо 1 например on и выводилось то же bla bla bla?

Crank51O, хз, я с телефона, но попробуй var s:string ... "on":writeln...

miha, или криво написал щас или не работает

miha, не. Не знаю как стринг вывести

Как ни как со школы 1 раз начал только этим сегодня заниматься. Помню не все

Crank51O, seclub.org/forum/goto/10746446/ - нифига се, сам ты криво пишешь, книжки читай. Непонятно - опять читай. И если уж точно нифига, то тогда и спрашивай.

miha, я и сказал что криво написал:-D эт ты сам под себя уже написал

Блин, народ, вообще не врублюсь. Вот исходник upwap.ru/819499
Прога должна создать файл, а потом вписать в него все буквы лат. алфавита, но с открытием файла всё время какая-то ошибка, никак не пойму какая. :helpme: Помогите пожалуйста

Ой, всё получилось

Люди добрые, может кто помочь мне с задачкой???? Оч нада... Задание: Напишите программу "Книжный архив", которая содержит формирование архива данным по изданным книгам, с возможностью пополнения. Данные включают в себя: фамилию автора, название книги, год издания, город, где издана книга и цену книги... или может решение на что-то подобное есть???

maggot66, тeбe обизaтeльно паскаль?