Найти сумму первых 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.