Подскажите как выглядит паскаль - программа, которая может подсчитать количество целых среди чисел 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.