Программа Turbo Pascal: условия парности

Нужно написать программу которая найдёт все числа в массиве которые больше 0, а также парные.

Оператор:

a mod b

1 mod 2

Условие парности:

парное — if i mod 2 = 0 then

не парное — if i mod 2<> 0 then

Условие которые ищет все числа которые больше 0 и парные:

if(D[i] > 0) AND (i mod 2 = 0) then

Смотрим пост «Программа Turbo Pascal: минимальный элемент массива», программы почти одинаковые получаются:

program test1;

uses crt;

var

D:array[1..10] of real;

i:integer;

summa:real;

begin

writeln('Vvedite 10 elementiv masiva');

for i:=1 to 10 do read(D[i]);

suma:=0;

for i:=1 to 10 do begin

if(D[i] > 0) AND (i mod 2 = 0) then

suma:=summa + D[i];

end;

writeln('Minimalniy element =',summa:6:2);

end.

Вот и все.