Втрехзначном числе x зачеркнули его вторую цифру. когда к образовавшемуся двухзначному числу слева приписали вторую цифру числа x, то получилось число y. по заданному y найти число x/ значение y вводится с клавиатуры; 99

Var y: integer;
begin
write('Введите трехзначное числo: y = ');
readln(y);
writeln('Число x = ',y mod 100 div 10,y div 100,y mod 10)
end.