Помогите составить программу в TP 7.0 (помогите пожалуйста ещё раз), нужно 1 и 5 задание. Заранее огромное спасибо!
//otvet.imgsmail.ru/download/68615577_7c582cc85b38586399ba98a025018dbd_800.jpg
1) Ввод заканчивается вводом нуля. И без массива. program q195781732_1; var i: Byte; s: string; begin repeat Read(i); if i <> 0 then s := s + Chr(i); until i = 0; WriteLn(s); ReadLn; end.