На заданном промежутке целых чисел [a,b] для функции y= sin^2(x)+cos(x^2 ),

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a,b:integer;
  Write('Введите границы промежутка: '); Read(a,b);
  if agt;b then Swap(a,b); // страховка от злобных буратинок
  var k:=Range(a,b).Where(m-gt;sqr(sin(m))+cos(m*m)lt;0).Count;
  Writeln('На промежутке найдено отрицательных значений- ',k)
end.

Пример
Введите границы промежутка: -3 10
На промежутке найдено отрицательных значений- 4