Вариант 8 Дано трёхзначное натуральное число. Получить другое натуральное число, в котором порядок цифр изменён на противоположный. Как будет выглядеть эта программа на языке паскаль?

Предыдущий
вопрос Следующий
вопрос

program ReverseNumber;

var
n, reverse, digit: integer;

begin
writeln('Введите трехзначное натуральное число: ');
readln(n);

reverse := 0;

while n > 0 do
begin
digit := n mod 10;
reverse := reverse * 10 + digit;
n := n div 10;
end;

writeln('Число с измененным порядком цифр: ', reverse);

end.