Ребят, помогите, пожалуйста, с задачей: ДАНО ЧЕТЫРЁХЗНАЧНОЕ ЧИСЛО,ВЫВЕСТИ ** ЭКРАН КУБЫ...

Question

Ребят, помогите, пожалуйста, с задачей: ДАНО ЧЕТЫРЁХЗНАЧНОЕ ЧИСЛО,ВЫВЕСТИ НА ЭКРАН КУБЫ ЦИФР ЭТОГО ЧИСЛА(PASCAL). Заранее огромное спасибо.

Answer 1

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.