В ПАСКАЛЕ С ПОЛНЫМ РЕШЕНИЕМ В трехзначном числе х зачеркнули первую цифру. Когда полученное число умножили на 10, а произведение сложили с первой цифрой числа х, то получилось число п. По заданному п найти число х (значение п вводится с клавиатуры, 1 < п < 999)

Var  x,i,n:integer;beginreadln(n);  x := n mod 10;  x := x * 100;  x := x + (n div 10);  writeln(x);end.