Помогите в Pascal пожалуйста 3

var  a,b,c,d,k:integer;  begin  k:=0;  writeln('Введите четыре числа через пробел');  readln(a,b,c,d);  if a mod 2 = 0 then k:=k+1;  if b mod 2 = 0 then k:=k+1;  if c mod 2 = 0 then k:=k+1;  if d mod 2 = 0 then k:=k+1;  writeln('Среди всех введенных чисел, четными оказались: ',k);end.