{Desenvolvido por Heverton Freitas para a comunidade do Orkut Language:=PASCAL}
program NumerosParesAteNum;
uses Crt;
var Num,Cont : integer;
    Soma,Auxiliar : real;
begin
    ClrScr;
    Soma:=0;
    Auxiliar:=0;
    write('Entre com um numero: ');
    readln(Num);
    for Cont:=1 to Num do
    begin
        if (Cont mod 2) = 0 then
        begin
            Soma:=Soma+Cont;
            Auxiliar:=Auxiliar+1;
        end;
    end;
    write('O resultado e: ',Soma/Auxiliar:0:0);
    ReadKey;
end.