Дано целое число n. Если оно четырёхзначное, то записать его справа

javascript:

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 agt;0 do

begin

k:=k+1;

a:=a div 10

end;

if k=4 then

begin

a:=n;

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

while agt;0 do

begin

write (a mod 10);

a:=a div 10

end

end

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

end.