Найти сумму первых 6 последовательных четных чисел по Турбо Паскалю

Т.к. нам не задан откуда будет отсчет 6 чисел, будет задавать пользователь.

vara,i,s:integer;begins:=0;readln(a);for i:=a to a+11 do beginif (i mod 2)=0 thens:=s+i;end;writeln(s);end.