Вычислить на паскале.
Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.

var i,sum,kol_vo:integer;sr:float;begin for i:=100 to 999 do  begin   if (((i mod 21)=0) and ((i mod 2)=0)) then    begin      kol_vo:=kol_vo+1;      sum:=sum+i;    end;  end;sr:=sum/kol_vo;print("необходимых чисел ",kol_vo,". Их среднее арифметическое ",sr)end.