PascalABC. Оператор цикла с предусловием и постусловием

[Shah69]

1.Вычислить разность кубов N(нечетных, натуральных чисел)
2.Дано натуральное число n (n>9999) и число m. Найти сумму m-последних цифр числа n.

[newerow1989]

var n,m,s:integer;
begin
   Write('n = '); Readln(n);
   Write('m = '); Readln(m);
   s:=0;
   If n<10000 then
      Exit;
   If (m=0) or (m>5) then
      Exit;
   While m>0 do
   begin
      s:=s+n mod 10;
      n:=n div 10;
      m:=m-1;
   end;
   Writeln(s);
   Readln;
end.