Дано пятизначное число Найти число, полученное при прочтении его цифр…

Program naoborot; Uses crt; var n,a,b: integer; BeginClrScr; write ('введите натуральное число: '); readLn (X); N: =X; while N>=1 dobegina: =N mod 10; N: =N div 10; b: =b*10+a; end; write ('Прочтение цифр числа справа налево: ',b) End.