Впаскале! в любом трехзначном числе удалить первую цифру, а в оставшемся 2-х значном числе переставить цифры.

Var a,a1,a2,a3: integer;
begin
read(a);
a1:=a div 100 mod 10;
a2:=a mod 100 div 10;
a3:=a mod 10;
writeln (a3,a2);
end.