надо записать в файл значения 4-х переменных
разделяя их "."
Например
(a.b.c.d)
1.2.3.4
2.3.4.5
7.7.7.7
и так далее
просто в окно ДОС все выводится нормально
но так как строк ОЧЧЧень много все не помещается и выводится только
3-5 сотен строк последних
а надо все

в файле будут только числа и точки
Файл можно будет прочитать в Виндовс?

 Program Serv;
 var
 a,b,c,d,i,j,x,y:integer;
 a1,b1,c1,d1:integer;
 n,m,k,l:integer;
 Begin
 writeln('начало');
 read(a,b,c,d);
 writeln('конец');
 read(a1,b1,c1,d1);
 i:=c1-c;
 j:=d1-d;
 writeln('-------------------------------------------------');
 while n<=i do begin
 While m<=j do begin
 if (d<=d1)and(c<=c1)and(b<=b1)and(a<=a1) then begin
 writeln(a,'.',b,'.',c,'.',d);
 d:=d+1;
 m:=m+1;
 end;
 end;
 n:=n+1;
 c:=c+1;
 d:=0;
 m:=1;
 end;
 read;
 end.

Пользуйемся тегами CODE !
klem4

1) Да в файл (текстоый)
2) приведи пример входных и выходных данных, и что там у тебя за проверки и вычисления, ты вседь сказал толко про запись чисел файл ..

например вводишь
1 1 0 0 - начало
1 1 4 4 - конец

получаешь

Все это выводится в Дос Окне
и если задать большой диапазон то строк будет несколько тысяч и все они не поместятся в окне
поместятся только последние
поэтому нужно чтобы они записывались в файл
в том виде в котором выводятся

uses crt;
var

   f : text;

   a1,a2,b1,b2,c1,c2,d1,d2 : word;
   i,j,k,l : word;

begin

   readln(a1,a2);
   readln(b1,b2);
   readln(c1,c2);
   readln(d1,d2);

   assign(f,'c:\test.txt');
   rewrite(f);
   for i := a1 to a2 do
    for j := b1 to b2 do
     for k := c1 to c2 do
      for l := d1 to d2 do
       writeln(f,i,'.',j,'.',k,'.',l);

   close(f);
end.

ввод :
1
1

1
1

0
4

0
4

сожержание файла после отработки :

Спасибо!!!