Сколько целых чисел входит в диапазон от 0 до 1000^2 включительно?

все числа от 0 до миллиона (1000^2) будут целыми, так как это любые числа

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.