Помогите пожалуйста с информатикой(паскаль)

Посчитать сумму первых 10 чётных чисел.(те которые делятся на 2 без остатка)

var 
   summ: Integer; 
   i:Byte; 
begin 
   summ := 0;   
   for i := 0 to 20 do 
   begin   
      if i mod 2 = 0 then summ := summ + i; 
   end;   
write('Summ is ', summ); 
end.