Начертить блок-схему и составить программу, которая вычислит среднее арифметическое четных(или не четных, без разницы) чисел на интервале от A до B включительно.

Блок-схема - в прилагаемом файле.var a,b,s,k,i:integer;beginwriteln('A, B:');readln(a,b);s:=0; k:=0;for i:=a to b do begin s:=s+i; k:=k+1; end;writeln('Среднее арифм. четных = ',s/k);end.Пример:A, B:5 15Среднее арифм. четных = 10