Вычислить 15 элементов, которые получены в результате вычисления арифметического выражения: Y= , где xÎ [0.75;3] с шагом = 0.2.Вычислить все значения и найти количество элементов <0.1Нужна блок-схема и программа в паскале.

PROGRAM A19;
{
Вычислить 15 элементов, которые получены в результате вычисления арифметического выражения:
Y=sqrt(x)*sin(x)/2 , где x [0.75;3] с шагом = 0.2.Вычислить все значения и найти количество элементов <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 ir<=max do begin
    zr := sqrt(ir)*sin(ir)/2;  
    if (zr<val) then
      j:=j+1;
    writeln('x=',ir,' y=',zr);

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

1. при x в[0.75;3] с шагом 0.2, не получается 15 элементов