Составить программу которая находит сумму первых 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.