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

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.

A: = random (500)

Как перевернуть хз