ПОМОГИТЕ ПОЖАЛУЙСТА ,В 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.