Поделитесь своими знаниями, ответьте на вопрос:
Дано четырехзначное число найдите число полученное при прочтении его цифр справно налево
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