Для последовательности целых положительных чисел a1, …, aN, где N – натуральное число, используя только элементарные арифметические операции (+, –, *, /) и не используя массивы, найти количество парных и количество непарных чисел с последовательности a1, …, aN, а также сумму максимальных элементов этих двух групп чисел — Pascal(Паскаль)

Program z3;
var i,n,a,P,H,maxP,maxH,s:integer;
begin
write('Введите n=');
readln(n);
P:=0;
H:=0;
for i:=1 to n do
begin
write('Введите ',i,'-ое число=');
readln(a);
if (a div 2)=0 then
begin
   if (i=1) then maxP:=a else
   if (a>=maxP) then maxP:=a;
P:=P+1;
end
else
begin
    if (i=1) then maxH:=a else
    if (a>=maxH) then maxH:=a;
H:=H+1;
end;end;
s:=maxP+maxH;
writeln(' Парных=',P,' Непарных=',H,' s=',s);
end.