Кажется мы уходим в бесконечный цикл! Нужно что-то придумать.
program prog1;
var str: string;
begin
writeln('Enter your inner part [Это очевидно, что ___, для чего этот коммент?]');
readln(str);
writeln('Это очевидно, что', str,'для чего этот коммент?');
.
.
.
Да ну все это. Пойду поем.
program prog1;
var str: string;
begin
writeln('Enter your inner part [Это очевидно, что ___, для чего этот коммент?]');
readln(str);
writeln('Это очевидно, что', str,'для чего этот коммент?');
.
.
.
Да ну все это. Пойду поем.