Составить программу которая находит сумму первых 5 чётных чисел и выводит их на экран

Program symma;
var
   k, i, s: integer;
begin

   s:=0; 
    i:=1;
   k:=0;
   while k<=5  do
     begin
     if i mod 2=0 then    begin
                                     s:=s+a;
                                      k:=k+1;
                                     end;   
     i:=i+1;
  end;
   writeln('s=',s);

end.