Даны натуральные числа m и n получить все кратные им числа меньшие m*n. На паскале. Полностью текст программы, пожалуйста

var  m, n, nok, t, i: longint;begin  Write('Введите через пробел два целых положительных числа- ');  Readln(m, n);  {Сначала ищем НОК - наименьшее общее кратное}  if m = n then begin    nok := m;    t := m * m  end  else begin    t := m * n;    repeat      if m > n then m := m - n else n := n - m    until m = n;    nok := t div m  end;  {Теперь умножаем НОК на числа натурального ряда,   пока не дойдем до величины t=m*n}  if nok = t then Writeln('Требуемых чисел нет')  else begin    i := 1;    while (nok * i < t) do     begin      Write(nok * i, ' ');      i := i + 1    end  endend.Тестовое решение:Введите через пробел два целых положительных числа- 8 120120 240 360 480 600 720 840 Введите через пробел два целых положительных числа- 35 6204340 8680 13020 17360 Введите через пробел два целых положительных числа- 7 13Требуемых чисел нет