Program Program1; var s:string; begin write('Введите натуральноее число: '); readln(s); writeln('Полученное число: ', s+s) end.