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

Предполагается, что число положительное.

var
  n:integer;
 
begin
  Write('n='); Read(n);
  while n>0 do begin
    Write(n mod 10);
    n:=n div 10
    end
end.

Пример
n=3607
7063