Question

Помогите пожалуйста .
Дано пятизначное число N.Составьте программу получения нового числа, в котором цифры будут идти в обратном порядке.(без цикла)

Answer 1

program Revers5;
Var
a,b,c,d,e,n:integer;
begin
write('Введите 5-значное число: ');
readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
n:=n div 10;
d:=n mod 10;
n:=n div 10;
e:=n;
n:=10000*a+1000*b+100*c+10*d+e;
writeln('Реверс введенного числа - ',n);
end.