Составьте и отладьте программу для вычисления количества четных отрицательных чисел от -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.