Question

Программа в Паскале.Дано натуральное число. Приписать к нему такое же число 1)в начало, 2)в конец

Answer 1

var
s,t:string;
begin
Readln(s);
t:= s + s;
writeln(t);
end.

Пример:
199
199199

Answer 2

если пишите на PascalABC.NET можно написать так:
begin
var s:=ReadLnString;
Writeln(s + s);
end.

Answer 3

или так
begin
Writeln(2*ReadLnString);
end.