program prog uses crt var integer real begin clrscr write Vvedite chis

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.