esto es un mezcla de un ciclo recursivo y una condicional.
en cada ciclo hace la pregunta

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

VAR fin,I,suma:integer;//la variable de control es "I"
                     //en "suma" se guarda la sumatoria d los pares
                     //"fin" es hasta donde llegara el ciclo
begin
Write('sumar todos los pares hasta el numero ');
readln(fin);
suma:=0;
for  i:=1  to fin do  //se puede elegir entre cualquiera de los ciclos repetitivos
begin                 //a mi me gusta mas el "for do" XD

if ((i mod 2)=0) then //aqui verifica si es par ,si es verdad se suma
begin
suma:=suma+i;
end;
//NO HAY """ELSE""" SIGNIFICA QUEEEEEEE
//de ser falso no hara nada y avanzara a la siguiente orden
end;
Write('la sumatoria de pares es igual a ');
Writeln(suma); //muestra todo lo q sumamos y listo
readln;
end.