Определить, верно ли, что одно из четырех произвольных чисел равно 0 - Pascal ABC

Формулировка задачи:

Имеется четыре произвольных числа. При вводе их в ЭВМ она должна ответить на вопрос верно ли чтл одно из чисел равно 0

Up help

Решение задачи: «Определить, верно ли, что одно из четырех произвольных чисел равно 0»

Листинг программы

var a,b,c,d:real;
begin
writeln('Введите четыре числа');
readln(a,b,c,d);
writeln('Одно из чисел равно нулю - ',(a*b*c*d=0));
end.

Объяснение кода листинга программы

Создается переменная a типа real, которая будет использоваться для хранения первого числа, введенного пользователем.
Создается переменная b типа real, которая будет использоваться для хранения второго числа, введенного пользователем.
Создается переменная c типа real, которая будет использоваться для хранения третьего числа, введенного пользователем.
Создается переменная d типа real, которая будет использоваться для хранения четвертого числа, введенного пользователем.
Выводится сообщение Введите четыре числа для инструкции пользователю о вводе чисел.
С помощью функции readln() считываются четыре числа от пользователя и сохраняются в переменных a, b, c и d.
Выводится сообщение Одно из чисел равно нулю - с использованием условного оператора (a*b*c*d=0). Если это условие истинно, то выводится сообщение, что одно из чисел равно нулю. В противном случае, выводится сообщение, что ни одно из чисел не равно нулю.
Программа заканчивается.