написать реализующую алгоритм программку на языке паскаль. Даны естественные числа n

Var
  m, n, sum, z: integer;

begin
writeln('Введите числа n и m');
readln(n);
readln(m);
while (ngt;0) and (mgt;0) do begin
  z:=n mod 10;
  sum:=sum+z;
  n:=n div 10;
  dec(m);
end;
  writeln('сумма последних цифр ', sum);
  if (mgt;=0) and (n=0) then
     writeln('найдена сумма всех цифр');
end.