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