program nepravilnorabotaetvvodconsoli; var stroka: string; begin writeln('vvedite stroky'); readln(stroka); writeln(stroka); end.
после запуска получаю:
vvedite stroky i f i n d t r e a s h u r e ifindtreashure
vvedite stroky i f i n d t r e a s h u r e
ifindtreashure