Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел a, b, c и d.(с разветвления)

uses crt;
var a,b,c: real;    
k: byte;
begin k:=0;
write('a=');
readln(a);
if round(a)=a then k:=k+1;
write('b=');
readln(b);
if round(b)=b then k:=k+1;
write('c=');
readln(c);
if round(c)=c then k:=k+1;
writeln(k);
readln;
end.