.(Дано пятизначное число найти число, полученное при прочтении его цифр справа налево.).

Program naoborot;

Uses crt;

var n,a,b:integer;

Begin

ClrScr;

write('введите натуральное число: ');

readLn(X);

N:=X;

while N>=1 do

begin

a:=N mod 10;

N:=N div 10;

b:=b*10+a;

end;

write('Прочтение цифр числа справа налево: ',b)

End.