ОБЬЯСНИТЕ ПЖ ЧТО ЗА ЧТО ОТВЕЧАЕТ, ОЧЕНЬ СРОЧНО.varq: string;a: integer;w: string;e: string;r: string;t: string;beginw:=(' Ганс, неси пулемёт') ;e:=(' Ля-ля-ля тополя' );r:=( ' Рельсы-рельсы, шпалы-шпалы');t:=(' Тра-та-та-та-та' );writeln('Дарова, водила, зсеся тута ты можешь заменять строчки в стихе, всеми какие пожилаешь!');writeln('Стих тут 4х строчный, поэтому выбирая больше 4, будет веселуха, поробуй!');writeln('Сначала напиши любой текст, а после строчку, где ты хочешь заменить');writeln('Попробуй, напиша текст, а в следующей строчке номер строки (1;2;3;4)');readln(q);writeln('Текст: ',q);readln(a);if a = 1 thenwriteln('Меняю 1ю строку')else if a = 2 thenwriteln('Меняю 2ю строку')else if a = 3 thenwriteln('Меняю 3ю строку')else if a = 4 thenwriteln('Меняю 4ю строку')else beginwriteln('Ошибка');writeln('Строчки ',a,' не существует');exitend;writeln('');if a = 1 thenbeginwriteln(' ',q);writeln( e);writeln( r);writeln( t);writeln();writeln('Конец фильма')endelseif a = 2 thenbeginwriteln( w);writeln(' ',q);writeln( r);writeln( t);writeln();writeln('Конец фильма')endelseif a = 3 thenbeginwriteln( w);writeln( e);writeln(' ',q);writeln( t);writeln();writeln('Конец фильма')endelse if a = 4 thenbeginwriteln( w);writeln( e);writeln( r);writeln(' ',q);writeln();writeln('Конец фильма')endelsewriteln(' Ты schwul');end.​