Program Pr1;var a:integer;Beginreadln(a);writeln('Posl.- ',a mod 10);while a div 10 <>0 do a:=a div 10;writeln('Perv.- ',a);end.