даны числа от n1 до n2 (n1 и n2 вводятся с

program raf105;

var

 n1,n2,i,c: integer;

begin

 write('Введите 2 числа (начало и конец спектра): ');

 readln(n1,n2);

 for i:=n1 to n2 do

 begin

   if (i mod 7 = 1) or (i mod 7 = 2) or (i mod 7 = 5)

     then begin

       write(i,' ');

       c:= c+1;

     end;

 end;

 writeln;

 writeln('Количество чисел: ',c);

end.

PascalABC 3.4.2