В программу вводится число она должна преобразовать в другое число в котором цифры располагаются в обратном порядку по сравнению с первым числом

Программа на паскале, так как язык не указан

program chisloNaOborot;  

var a, N: integer;  

begin  

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

readln(N);  

a:=0;

while N>0 do

     begin  

     a:=a*10+N mod 10;

      N:=N div 10;

       end;  

writeln (a);

end.