В ПАСКАЛЕ С ПОЛНЫМ РЕШЕНИЕМ В трехзначном числе х зачеркнули первую цифру. Когда
полученное число умножили на 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.