Чтобы удобнее найти было, не?
На светофоре (красный,жёлтый,зелёный) сейчас горит зелёный
Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Примерно так...
Смотри картинку...