дана функция y=5 x+ 20 на отрезке от 1 до 10 найти количество отрицательных значений функций.

var x, k : integer;
Begin
  for x := 1 to 10 do
     if 5*x+20 < 0 then
       k := k + 1;
  writeln(k);
End.

а вообще при положительном х функция всегда будет положительная, глупое условие