Напишите пожалуйста чему равна дельта 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.