Var
 K : LongInt;

Function SwapNum(nn : LongInt) : LongInt;
Var S,Sres   : String;
   Result   : LongInt;
   i        : Byte;
   Code     : Integer;
Begin
  If nn<10 then
  Begin
    SwapNum:=nn;
    Exit;
  End;
  Str(NN,S);
  Sres:=S;
  For i:=1 to Length(S) do Sres[Length(S)-i+1]:=S[i];
  Val(Sres,Result,Code);
  If Code=0 then SwapNum:=Result else SwapNum:=0;
End;

Begin
 Write('Введите число: ');Readln(k);
 Write('Результат    : ',SwapNum(k));
End.

program forforum;
var a, b: integer;
begin readLn(a); b:=0;
 while a<>0 do begin
   b:=b*10+a mod 10;
   a:=a div 10
 end;
 writeLn(b)
end.