writeln('Дарова, водила, зсеся тута ты можешь заменять строчки в стихе, всеми какие пожилаешь!'); writeln('Стих тут 4х строчный, поэтому выбирая больше 4, будет веселуха, поробуй!'); writeln('Сначала напиши любой текст, а после строчку, где ты хочешь заменить'); writeln('Попробуй, напиша текст, а в следующей строчке номер строки (1;2;3;4)'); readln(q); writeln('Текст: ',q); readln(a); if a = 1 then writeln('Меняю 1ю строку') else if a = 2 then writeln('Меняю 2ю строку') else if a = 3 then writeln('Меняю 3ю строку') else if a = 4 then writeln('Меняю 4ю строку') else begin writeln('Ошибка'); writeln('Строчки ',a,' не существует'); exit end; writeln(' '); if a = 1 then begin writeln(' ',q); writeln( e); writeln( r); writeln( t); writeln(); writeln('Конец фильма') end else if a = 2 then begin writeln( w); writeln(' ',q); writeln( r); writeln( t); writeln(); writeln('Конец фильма') end else if a = 3 then begin writeln( w); writeln( e); writeln(' ',q); writeln( t); writeln(); writeln('Конец фильма') end else if a = 4 then begin writeln( w); writeln( e); writeln( r); writeln(' ',q); writeln(); writeln('Конец фильма') end else