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

jа vascript:

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

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

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.