Сделайте, плиз, задачку про цифры!!!

[BeaU]

В трехзначном числе х зачеркнули первую цифру. Когда полученое число умножили на 10, а произведеное сложили с первой цифрой числа х, то получилось число n. По заданому n найти число х(значение n вводится с клавиатуры, 10<=n<=999 и при этом число десятков в n не равно нулю).

[NetSpace]

тут походу обратная задача. нужен алгоритм.

ReadLn('n=',n);
p1:=n mod 10;//остаток - это и есть первое число X
x:=n div 10;//целая часть - это оставшиеся числа, как убрали первую цифру
c:=Length(IntToStr(x))+1;//число разрядов для первого числа
x:=p1*c+x;//первое число + наш остаток

[__STDC__]

хм.. что это

ReadLn('n=',n);

?
и зачем это

c:=Length(IntToStr(x))+1;

вот так наверное вы имели ввиду

var
   x,n:integer;
begin
   readln(n);
   x := n mod 10 * 100 + n div 10;
   writeln(x);
end.