Program   Flip_Flop ;

Var  n,m,num:integer;

Begin

Writeln(‘Enter The Number ‘);

Readln(n);

while (n div 10 <>0 )do

begin

      m      =:n mod 10;

      num  =:m+num*10;

      n        =:n div 10;

end;

Writeln(‘The Number After Flipping ‘,n);end.