Вычислить произведение n пар чисел (a с индексом i; a с индексом j), частное которых меньше 20 — Pascal(Паскаль)

const
  n = 100; // Количество пар

var
  s: String;
  i, j: Word;

begin
  s := 'Результаты:';
  for i := 0 to n do
    for j := 0 to n do
      if i / j < 20 then
        s := s + #13 + 'Число1: ' + IntToStr(i) + '; Число2: ' + IntToStr(j) +
          '; Произведение: ' + IntToStr(i * j);
end;