Дано целое число 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.

javascript:

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

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