Дано целое число n. Если оно четырёхзначное, то записать его справа налево. Например, из 1234 получить 4321. Иначе вывести на экран соответствующее сообщение.

var n, a, k:integer;

begin

write ('Введите число: ') ;

readln (n) ;

a:=n;

while a>0 do

begin

k:=k+1;

a:=a div 10

end;

if k=4 then

begin

a:=n;

write ('Число четырёхзначное, записанное справа налево: ') ;

while a>0 do

begin

write (a mod 10) ;

a:=a div 10

end

end

else write ('Число не четырёхзначное') ;

end.

jа vascript:

var Обр = function (ч) { return ч = = = ""? "" : Обр (ч. substr (1)) + ч. charAt (0) ; }, число = prompt () ;

if (число. length! = 4 || parseInt (число) ! = число) alert ("Ошибка ввода.") ; else alert (Обр (число)) ;