Вычислить на паскале.

Среди всех трехзначных чисел подсчитать количество кратных 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.