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

program reverse1;var s,m,n:integer;

beginwriteln(\'Введите число\');readln(n);s:= 0;while n > 0 dobegin//Находим остаток от деления числа на 10//(в цикле получаются числа в обратном порядке).m:= n mod 10;//Остатки добавляются в конец нового числа.//При повторении цикла соответствующие числа перемещаются//в следующий разряд за счет умножения на 10.  s:= s * 10 + m;n:=n div 10//Число делится на 10, чтобы при следующем прохождении//цикла найти остаток – цифру старшего разряда.end;writeln(s)end.