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

//PascalABC.NET 3.2 сборка 1318

Var
  n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.

Пример ввода:
234
Пример вывода:
423