Вpascal составить программу вычисления количества первых четных чисел в сумме 56

Var n,i,k:integer;
beginwhile n<56 do begini:=i+1;if i mod 2 = 0 then begin n:= n + i;k:=k+1;end;end;write(k);end.