К ведённому числу в начало и конец прибавить единицу — Pascal(Паскаль)

var
a,b:integer;
begin
repeat
readln(a);
until a<1000;
b:=1;
repeat
b:=b*10;
until b>a;
a:=(b+a)*10+1;
writeln(a);
end.