Определите сколько первых четных чисел не превышают в произведении 200 , напишите решение пожалуйста ❤️

var i,p,k:integer;begink:=0; p:=1; i:=2;while p<200 do begin p:=p*i; k:=k+1; i:=i+2; end;writeln('k = ',k);end.Результат:k = 4