Ответ:

program ssd;

uses crt,graph;

var   a,a1,a2,a3:integer;

begin

clrscr;

writeln('Введите трехзначное число');

readln(a);

a1:= a mod 10;

a2:=(a div 10) mod 10;

a3:= a div 100;

writeln('    ',a1,a2,a3);

readkey;

end.