program SeparateDigits;

var
number, digit1, digit2, digit3: integer;

begin
write('Enter a three-digit number: ');
readln(number);

digit1 := number div 100;
digit2 := (number div 10) mod 10;
digit3 := number mod 10;

writeln('Separate digits of the number are: ', digit1, ', ', digit2, ', ', digit3);
end.