с клавиатуры водятся 4 числа выяснить, если среди них число

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

var

a, b, c, d, Mul : real;

begin

Write('Введите четыре числа:');

ReadLn(a, b, c, d);

Mul := a * b * c * d;

If Mul = 0 then

 WriteLn('Среди чисел вы ввели нуль')

Else

 Writeln('Среди чисел нет нуля');

end.