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