Приписывание к началу и к концу числа

[as1212]

Здраствуйте, помогите решить задачу на паскале:

Дано натуральное n. Приписать по единице в начало и в конец за-
писи числа n.

[iCaesy]

program q;
var
n:integer;
begin
writeln('Vvedite N: ');
readln (n);
writeln ('1',n,'1');
end.

:D

[_Alerter_]

как вариант:
1. вводим новую переменную x, присваиваем ей единицу.
2. пока x меньше или равно n умножаешь x на 10.
3. x = (x + n) * 10 + 1.
4. Вывод x
5. ????
6. PROFIT

[as1212]

Сообщение от _Alerter_

как вариант:
1. вводим новую переменную x, присваиваем ей единицу.
2. пока x меньше или равно n умножаешь x на 10.
3. x = (x + n) * 10 + 1.
4. Вывод x
5. ????
6. PROFIT

а кодом можна...

Имеется ввиду дапустим n=348 нужно сдалать n=449 т.е. (3+1)4(8+1)

[_Alerter_]

Сообщение от as1212

а кодом можна...

Имеется в виду допустим n=348 нужно сделать n=449 т.е. (3+1)4(8+1)

это не совсем то, что было написано в первом посте, алгоритм будет немного другой:

uses crt;
var
   n, x : longint;
begin
   clrscr;
   read(n);
   x := 1;
   while x <= n div 10 do
      x := x * 10;
   Write(x + n + 1);
   readln
end.