Составьте и отладьте программу для вычисления количества четных отрицательных чисел от -15 до 40

>>количества четных отрицательных чисел от -15 до 40 Очевидно, что ежели чётных отрицательных, то имеет смысл лишь от -15 до 0. var counter, sigma : integer; begin counter := -15 sigma := 0; while counter < 0 do     if (counter mod 2) = 0        then sigma += 1;  counter += 1; writeln(sigma); readln() end.