Verified answer

var a,b,c,d: integer;

begin

writeln('Введите 4 числа');

readln(a,b,c,d);

if (a=0)or(b=0)or(c=0)or(d=0)

then writeln('Среди введенных чисел есть 0')

else writeln('0 нет');

end.

Пример:

Введите 4 числа

5 0 3 7

Среди введенных чисел есть 0