Составить программу которая определяет количество целых чисел среди 4 которые вводятся с клавиатуры

Program abc;var i,k:integer;    b:array [1..4] of real;beginfor i:=1 to 4 do read(b[i]);for i:=1 to 4 do if frac(b[i]) = 0 then k:=k+1;write (k);end.