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

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

Эта программа запрашивает у пользователя четыре целых числа (a, b, c, d) и с помощью условных операторов проверяет, является ли каждое из чисел целым. Если число целое, увеличивается счетчик countIntegers. В конце программа выводит количество целых чисел среди введенных.