program ReverseNumber;

var
number, reverseNumber: integer;

begin
// Ввод трехзначного числа
write('Введите трехзначное число: ');
readln(number);

// Проверка на трехзначность числа
if (number < 100) or (number > 999) then
begin
writeln('Ошибка! Введите трехзначное число.');
exit;
end;

// Переворачиваем число
reverseNumber := (number mod 10) 100 + ((number div 10) mod 10) 10 + number div 100;

// Выводим число-перевертыш
writeln('Число-перевертыш: ', reverseNumber);
end.