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;