Помогите нарисовать алгоритм по уже готовой программе:

Найти и сосчитать все числа натурального ряда, которые больше N1 и меньше N2. N1>0, N2>0. N1, N2 вводятся с клавиатуры.
program P1;
var
n1,n2,j: integer;
begin
write('vvedite n1,n2 ');
repeat
readln(n1, n2);
until (n1 > 0) and (n2 > 0) and (N1>0) and (N1