Напишите пожалуйста программу в Паскаль! Буду очень благодарна!

Question

Найти и сосчитать все числа натурального ряда, которые больше N1 и меньше N2. N1>0, N2>0. N1, N2 вводятся с клавиатуры.

Алла · Accepted Answer

readln(n1,n2); 
for j:=n1+1 to n2-1 do write(j); 
writeln(n2-n1-1);

Сергей Денисеня · Answer

program z1; 
var 
 n1,n2,j: integer; 
begin 
 write('vvedite n1,n2 > 0: '); 
 repeat 
 readln(n1, n2); 
 until (n1 > 0) and (n2 > 0); 
 writeln; 
 writeln('rezultat: '); 
 for j:=n1+1 to n2-1 do writeln(j); 
 readln; 
end.