Составте блок-схему и программу для нахождения среднего арифметического всех натуральных двузначных чисел, кратных 2, в программе- построение блок схем, используя циклический алгоритм

Pascal
var i,s,k:integer;
begin
s:=0;
k:=0;
for i:=10 to 99 do
begin
if (i mod 2 = 0) then
begin
k:=k+1;
s:=s+i;
end;
end;
writeln (s/k);
end.