Ответ:

var

num :integer;

begin

readln(num);  

writeln('',num mod 10, num mod 100 div 10 ,num div 100 );  

end.

Объяснение:

Все как требовалось