program prog;
uses crt;
var a, b, i : integer;
c : real;
begin
clrscr;
write('Vvedite chislo b (10 <= b <= 999): ');
readln(b);
{poluchenie poslednei cifri}
a := b mod 10;
{vichitanie poslednei cifri}
b := b - a;
{delenie na 10}
c := b / 10;
{opredeliaem kol-vo desyatkov}
i := 10;
if ( c > 9) then i := 100;
{pribavlyaem sleva poslednuu cifru}
a := a * i;
c := a + c;
writeln(c:0:0);
readln;
end.