Ответ:

begin

 Range(7, 200, 7).Average().Print();

end.

//PascalABC.NET 3.5.X

Ответ:

• begin
• (1..199).Where(x -> x mod 7 = 0).Average.Print
• end.

или

• var i,s,n: integer;
• begin
• while i+7<200 do
• begin
• i := i + 7;
• s := s + i;
• n := n + 1;
• end;
• write(s/n);
• end.

Пример работы: