При табулировании функции y = sin(x+a) на отрезке [0;12] с шагом h = 1 определить сумму значений y, больших t.

Const i = 6;
var x, h,y, max,k : real;
begin
k:=0;
h:= 0.01*i;
x:=0;
max:= sin(x+i);
writeln (x:6, y:6);
repeat
  y:= sin(x+i);
  writeln(x:7:2, y:7:2);
  if y gt; max then max:=y;
  if y lt; 0 then k:=k+1;
  x:= x + h;
until x gt; i + h/2;
writeln(max =, max:5:2);
writeln(Количество отрицательных=,k);
end.