Y=tgx; -1,32< =x< =1,49 дельта x = 0,11 найти все y, лежащие в интервале [-14; +17] и их количество.

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var a: =-1.32;   var b: =1.49;   var h: =0.11;   var y1: =-14.0;   var y2: =17.0;   var k: =0;   var x: =a;   while x< =b do begin       var y: =tan(x);       if (y> =y1) and (y< =y2) then begin           writeln('x=',x: 5: 2,'  y=',y: 7: 4);           inc(k)           end;       x+=h       end;   writeln('найдено значений: ',k) end. результат x=-1.32  y=-3.9033 x=-1.21  y=-2.6503 x=-1.10  y=-1.9648 x=-0.99  y=-1.5237 x=-0.88  y=-1.2097 x=-0.77  y=-0.9697 x=-0.66  y=-0.7761 x=-0.55  y=-0.6131 x=-0.44  y=-0.4708 x=-0.33  y=-0.3425 x=-0.22  y=-0.2236 x=-0.11  y=-0.1104 x= 0.00  y= 0.0000 x= 0.11  y= 0.1104 x= 0.22  y= 0.2236 x= 0.33  y= 0.3425 x= 0.44  y= 0.4708 x= 0.55  y= 0.6131 x= 0.66  y= 0.7761 x= 0.77  y= 0.9697 x= 0.88  y= 1.2097 x= 0.99  y= 1.5237 x= 1.10  y= 1.9648 x= 1.21  y= 2.6503 x= 1.32  y= 3.9033 x= 1.43  y= 7.0555 найдено значений: 26

программа это какая та фишка ф котором введены разные источники