Вычислить 15 элементов, которые получены в итоге вычисления арифметического выражения:

y=?

Y=sqrt(x)*sin(x)/2

количество значений y<0.1 ?

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
 var x:=0.75;
 var kol:=0; 
  while xlt;=trunc(3+0.2/2) do
   begin
    var y:=sqrt(x)*sin(x)/2;
    Write('x=',x,'  ');Writeln('y=',y);
    x:=x+0.2;
    if ylt;0.1 then inc(kol);
   end;
 Println('Количество ylt;0.1=',kol);
end.

Результат:
x=0.75  y=0.295158241192166
x=0.95  y=0.39640968210305
x=1.15  y=0.489415138771753
x=1.35  y=0.566844047305235
x=1.55  y=0.622360374192837
x=1.75  y=0.650845527252713
x=1.95  y=0.648610822565261
x=2.15  y=0.613567255886829
x=2.35  y=0.545333998474535
x=2.55  y=0.445274740480793
x=2.75  y=0.316456576938099
x=2.95  y=0.163530818695244
Количество ylt;0.1 0 

PROGRAM A19;

Вычислить 15 частей, которые получены в итоге вычисления арифметического выражения:
Y=sqrt(x)*sin(x)/2 , где x [0.75;3] с шагом = 0.2.Вычислить все значения и отыскать количество частей lt;0.1

CONST
    min = 0.75;
    max = 3;
    stp = 0.2;
    val = 0.1;

var j:byte;
    zr, ir:real;

BEGIN
  j := 1;
  ir := min;
  while irlt;=max do begin
    zr := sqrt(ir)*sin(ir)/2;  
    if (zrlt;val) then
      j:=j+1;
    writeln('x=',ir,' y=',zr);

    ir := ir+stp;
  end;
  writeln('количество частей y lt; ',val,' = ',j-1);
END.