Постройте блок схему алгоритма, который считает и выводит среднее арифметическое всех чётных двузначных чисел.

Var i,n,sum: integer;
begin
for i:=10 to 99 do
begin
if i mod 2=0 then
begin
inc(sum, i);
inc(n);
end;
end;
writeln(sum/n);
end.