Программа на Pascal

[InFlesh]

Нужно написать программу которая приписывает в начало и конец 1

[Stilet]

var начало,конец:integer;
begin
начало:=1;
конец:=1;
end.

[InFlesh]

вы меня не поняли нужно к введенному числу в начало и конец прибавить единицу

[Mad_Cat]

var i:real;
k:real;
begin
readln(i);
i:=i*10+1;
k:=1; while k<i do k:=k*10;
i:=k+i;
writeln(i);
end.

[InFlesh]

Спасибо!Работает