Программа на Паскале может выглядеть следующим образом:

program CountIntegers;
var
a, b, c, d: integer;
count: integer;
begin
writeln('Введите четыре числа:');
readln(a, b, c, d);
count := 0;
if (a mod 1 = 0) then
count := count + 1;
if (b mod 1 = 0) then
count := count + 1;
if (c mod 1 = 0) then
count := count + 1;
if (d mod 1 = 0) then
count := count + 1;
writeln('Количество целых чисел среди заданных:', count);
end.

Эта программа запрашивает у пользователя четыре числа, затем для каждого числа проверяет, делится ли оно на 1 без остатка (т.е. является ли целым числом). После этого программа выводит количество целых чисел среди введенных.