Разработать алгоритм решения , представив его в виде блок-схемы; составить программу на алгоритмическом языке turbo pascal; вывести результаты расчетов на печать (дисплей). дана функция, где x изменяется от –4 до 7 с шагом h = 0,2. если x < −3 , если − 3 ≤ x ≤ 5 , если x > 5 . вычислить и вывести на экран среднее арифметическое положительных значений у. , нужно и подробно!

Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
   Begin
   if (x < -3) then y:=2*x-5*Sin(x)
   else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
        else y:=ln(4*x+Sin(x));
   if (y > 0) then
      Begin
      S:=S+y;
      k:=k+1
      End;
   WriteLn('y(',x:0:1,') = ',y:0:3);
   x:=x+0.2
   End;
WriteLn('Sr = ',S/k);
ReadLn
End.