Простая задачка!ПОМОГИТЕ СРОЧНО! Опции

[bestlover]

Дано натуральное число. Приписать к нему такое же. Но чтобы можно было с этой цифрой потом операции выполнять!

[Vinchkovsky]

Я правильно понял - напр., если дано число 23, то на выходе получаем 2323?

Если да, то так:

program ValStr;
uses Crt;
var A:longint;
    i:integer;
    S:string;
begin
 ClrScr;
 write('Enter the number: '); readLn(A); {Читаем число}
 str(A,S); {Переводим числовую переменную в строковую}
 S:=S+S; {Дописываем нужные цифры}
 val(S,A,i); {Переводим из строковой переменной в числовую}
 writeLn('New number: ', A); {Выводим измененное число}
 Repeat until KeyPressed
end.