Написать программу в паскале: Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

program reverse1;

var s, m, n:integer;

begin

writeln ('Введите число');

readln (n);

s: = 0;

while n > 0 do

begin

//Находим остаток от деления числа на 10

/ / (в цикле получаются числа в обратном порядке).

m: = n mod 10;

//Остатки добавляются в конец нового числа.

//При повторении цикла соответствующие числа перемещаются

//в следующий разряд за счет умножения на 10.

s: = s * 10 + m;

n:=n div 10

//Число делится на 10, чтобы при следующем прохождении

//цикла найти остаток - цифру старшего разряда.

end;

writeln (s)

end.