var
num :integer;
begin
readln(num);
writeln('',num mod 10, num mod 100 div 10 ,num div 100 );
end.
Объяснение:
Все как требовалось
