ПОМОГИТЕ ПОЖАЛУЙСТА !
ДАЮ 40 БАЛЛОВ
ЗАДАЧА ПО ИНФОРМАТИКЕ
в программе паскаль 9 класс
с клавиатуры водятся 4 числа
выяснить, если среди них числ0 равное 0

program EstiLiNoli;

var a,b,c,d:integer;

begin

 writeln('vvedi 4 cisla:');

 write('a= '); read(a);

 write('b= '); read(b);

 write('c= '); read(c);

 write('d= '); read(d);

 if a*b*c*d=0 then writeln(' esti noli...')

 else writeln(' net sredi nih noli...');

end.