Написать программу которая задумывает число и печатает его наоборот. ( пример: 341 и 143) в паскаль.

A: = random(500) как перевернуть хз

Var m,p: longint;     i: integer; begin writeln ('введите натуральное число не более 999999999'); repeat readln(m); until(m> 0)and(m< =999999999);   p: =0; while m> 0 do   begin       i: =m mod 10;       p: =p*10+i;       m: =m div 10;   end; write(p); readln end.