Напишите программу, которая считывает трехзначное число и выводит через пропуск каждой цифры отдельно

Program numbers;

var num : integer;

begin
  write('Введите трехзначное число: ');
  readln(num);
  write(num div 100,' ');
  num := num mod 100;
  write(num div 10,' ');
  write(num mod 10);
end.