С: дано четырёхзначное число,вывести на экран кубы цифр этого числа(pascal). заранее огромное .

var a, b, i :integer;   
     s :string;
begin   
   readln (a);   
   while a>0 do   
   begin
      b:=a mod 10;
      a:=a div 10;
      write (b*b*b, ' ');
   end;
end.