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