Ответ:

4.

var  

 F:array[1..45] of Real;

 i,s:Integer;

begin

 s:=0;

 for i:=1 to 45 do

   begin

     F[i]:= sqrt(44+(i-1)/4);

     if F[i]<7  

     then s:=s+1;

     Writeln(i,':',F[i]);  

   end;

   Writeln('Чисел <7:',s);

end.

5

var  

 D:array[1..34] of Real;

 i,s:Integer;

begin

 s:=0;

 for i:=1 to 34 do

   begin

     D[i]:= random(77);;

     if Frac(D[i]/7)=0  

     then s:=s+1;

     Writeln(i,':',D[i]);  

   end;

   Writeln('Кратных 7:',s);

end.

6

var  

 C:array[1..23] of Real;

 i:Integer;

 s:Real;

begin

 s:=0;

 for i:=1 to 23 do

   begin

     C[i]:= 15/i +22;

     if C[i]<25  

     then s:=s+C[i];

     Writeln(i,':',C[i]);  

   end;

   Writeln('Сумма чисел <25:',s);

end.

Объяснение: