program SwapFirstAndLastDigit;
var
number, firstDigit, lastDigit, swappedNumber: integer;
begin
write${}^{\prime }Enteranumber{:}^{\prime }$;
readln$number$;

lastDigit := number mod 10;

while number >= 10 do
begin
number := number div 10;
end;
firstDigit := number;

swappedNumber := firstDigit * $power(10,trunc(ln(lastDigit)))+lastDigitdiv10$ + lastDigit mod 10;

if firstDigit <> lastDigit then
begin
writeln${}^{\prime }Swappednumber{:}^{\prime },swappedNumber$;
end
else
begin
writeln${}^{\prime }Firstandlastdigitsareequal.Noneedtoswap{.}^{\prime }$;
end;
end.