ОБЬЯСНИТЕ ЧТО ЗА ЧТО ОТВЕЧАЕТ, ОЧЕНЬ Ганс, неси пулемёт') ;
e:=(' Ля-ля-ля тополя' );
r:=( ' Рельсы-рельсы, шпалы-шпалы');
t:=(' Тра-та-та-та-та' );

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

writeln(' Ты schwul');

end.​

likaKiss1    2   13.05.2020 06:37    0