Найти все у и их количество для функции y=корень квадратный из суммы квадрата d c в кубе и всё это разделить на 0,2-sind, если -2,0.=

uses crt;
var d,c,y,h:real;
    i:integer;
begin
clrscr;
d:=-2;
h:=0.49;
c:=1.36;
i:=0;
while d<=3.75 do
 begin
  y:=sqrt(d*d+c*c)/(0.2-sin(d));
  i:=i+1;
  writeln('d=',d:4:1,'  y=',y:6:2);
  d:=d+h;
 end;
writeln('Vsego Y=',i);
readln
end.