Рассчитать значения функции y = sin x2 для x, изменяющегося на отрезке [-5; 5] с шагом 0.1. Отпечатать только положительные значения y и подсчитать количество отрицательных значений — Pascal(Паскаль)

program sinsqr;
uses crt;
var x,y:real;
    i:integer;
begin
 x:=-5;
 while x<=5 do begin
  y:=sin(sqr(x));
  if y>0 then writeln('y(',x:2:1,')=',y:2:2) else inc(i);
  x:=x+0.1;
 end;
 writeln('Kol-vo otritsat elementov ',i);
 readln;
end.