Помогите пожалуйста написать программу! Найти количество натуральных чисел,…

Если я все правильно понял, и нужно найти кол-во пар чисел, произв которых не превышает 1000, то вот решение, если неправильно, напиши сообщение, исправлю var i, j, ans: integer; begin ans: =0; for i: =1 to 1000 do for j: =1 to (1000 div i)+1 do if i*j < 1000 then ans: =ans+1; writeln (ans); end.