Дано натуральное число . Определить сумму кубов его цифр — Pascal(Паскаль)

uses crt;
var n,m:longint;
    s,k:integer;
begin
clrscr;
write('n=');
readln(n);
writeln('Цикл while');
m:=n;
s:=0;
while m>0 do
 begin
  k:=m mod 10;
  s:=s+k*k*k;
  m:=m div 10;
 end;
writeln('Сумма кубов цифр=',s);
writeln;
writeln('Цикл repeat');
m:=n;
s:=0;
repeat
  k:=m mod 10;
  s:=s+k*k*k;
  m:=m div 10;
until m=0;
writeln('Сумма кубов цифр=',s);
readln
end.