напишите пожалуйста чему равна дельта a,b,c если
a= 0,9319 b = 15,347 c = 0,409

var 

  num, count:integer;

begin

    count:=0;

    for i:=1 to 3 do

    begin

        readln(num);

       if num=0 then count:=count+1

    end;

    writeln(count)

end.