Вычислить 10 элементов которые получены в результате вычисления арифметического выражения Y=sin(a)/b где b=0.6 принадлежит [-1.57;3] с шагом 0.25 Найти сумму положительных и количество отрицательных значений элементов.
Помогите срочно пожалуйста!!!

var a,b,y,s:real;        k:integer;begins:=0;k:=0;b:=0.6;a:=-1.57;while a<=3 do beginy:=sin(a)/b; writeln('y=',y);if y>0 then s:=s+y;if y<0 then k:=k+1;a:=a+0.25;end;writeln(s);writeln (k);end.