//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.
//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.