Дано четырехзначное число найдите число полученное при прочтении его цифр справно налево

Предполагается, что число положительное.var  n:integer;  begin  Write('n='); Read(n);  while n>0 do begin    Write(n mod 10);    n:=n div 10    endend.Примерn=36077063