Составить программу в паскале которая ,находит среднее арифметическое натуральных чисел, меньших 200 и кратных 7.

begin

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

end.

//PascalABC.NET 3.5.X

begin(1..199).Where(x -> x mod 7 = 0).Average.Printend.

или

var i,s,n: integer;beginwhile i+7<200 dobegini := i + 7;s := s + i;n := n + 1;end;write(s/n);end.

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