Составить алгоритм вычесления суммы четных чисел от двух до n)(n-четных) здесь блок схема сделать

Описание:
запускаешь  цикл от 2 до N. Если остаток от деления числа на 2 = 0, то к s прибавляем число. 

Код:

Var 
   s,n,i:integer;
Begin 
   s:=0;
   readln(n);
   for (i:=2 to n) then begin
     if (i mod 2 = 0) then s:=s+i;
   end;
   writeln(s);
End.