Признак делимости на 9 - Turbo Pascal

Формулировка задачи:

Уважаемые друзья помогите пожалуйста с задачей по Паскалю. Для натуральных чисел, не превосходящих заданного k, проверить признак делимости на 9 (сумма цифр числа, делящегося на 9, также делится на 9). Распечатать m последних таких чисел (m<<k). Долго икала что то подобное, а нашла ее же только на Java. вот код: (Заранее спасибо!).

import java.util.*;
public class _7lab
{
public static void average ()
{
Scanner consc = new Scanner (System.in);
int i;
int m; 
int k;
int  n = 9;
System.out.println("Ведите натуральное число k, которое не будут превосходит все остальные элементы");
consc.hasNextInt();
k=consc.nextInt();
System.out.println("Ведите число m много(!) меньшее k");
consc.hasNextInt();
m=consc.nextInt();
i=k;
while (i % n != 0){
i--;
i -=(m-1)*n;
}
while (i <= k) {
   System.out.println(i + " ");
   i +=n;
}
}
}

Решение задачи: «Признак делимости на 9»

Листинг программы

var
  m, k, i: integer;
 
begin
  Write('K = ');
  Readln(k);
  Write('M = ');
  Readln(m);
  while (i < m) and (k > 0) do
  begin
    if k mod 9 = 0 then
    begin
      Write(k, ' ');
      i := i + 1;
    end;
    k := k - 1;
  end;
  Readln
end.

Объяснение кода листинга программы

В начале объявляются три переменные типа Integer: m, k и i.
Затем происходит вывод сообщений «K = » и «M = », за которыми считываются значения переменных k и m.
Далее идет цикл while, который выполняется до тех пор, пока i меньше m и k больше 0.
В условии цикла проверяется, делится ли k на 9 без остатка. Если да, то выводится значение k, переменная i увеличивается на 1, и условие цикла становится ложным.
После этого значение k уменьшается на 1.
По завершении цикла считывается следующее значение k.