PASCAL ABC. Вводится натуральное число N. Получить новое число M - число перевертыш. Например, N=125, тогда M=521.

var

x: byte;

c1, c2: longint;

begin

   readln(c1);

   c2 := 0;

   while c1>0 do  

   begin

       x := c1 mod 10;

       c1 := c1 div 10;

       c2 := c2*10 + x;

   end;

   writeln(c2);

end.