Дано действительное число h. Выяснить, имеет ли уравнение ax2 + bx + c = 0 действительные корни, еслиPascal(Паскаль)

program z7; 
var
 h,a,b,c,dis,x1,x2:real; 
begin 
 writeln('Введите число Н'); 
 readln(h); 
 a:=sqrt((abs(sin(((8*h)*PI)/180))+17)/sqr((1-sin(4*h)*((h*h)+18))));
 b:=1-sqrt(3/(3+abs(((sin((a*h*h)*PI)/180)/cos(((a*h*h)*PI)/180))-sin(a*h)))); 
 c:=(a*sqr(h)*sin(b*h))+(b*sqr(h)*h)*(cos(((a*h)*PI)/180)); 
 writeln(a:2:2,'x^2+',b:2:2,'x+',c:2:2); 
 dis:=sqr(b)-4*a*c; 
 if dis<0 then writeln('Корней нет') else
  begin 
   x1:=(-b+sqrt(dis))/(2*a); 
   x2:=(-b-sqrt(dis))/(2*a); 
  end;
 writeln('X1=',x1:2:2,' X2=',x2:2:2); 
 readln; 
end