Если сумма элементов массива окажется больше 10, то найти количество четных элементов

program lab3;
uses crt;
const n=10;
type mas=array [1..n] of real;
var a:mas; i,kol:integer; sum,p:real;
begin
clrscr;
       writeln ('vvedite',n:2,'elementov masiva:');
       for i:=1 to n do read(a[i]);
       writeln('vvedeniy masiv:');
       for i:=1 to n do write(a[i]:6:2);
writeln;
kol:=0; sum:=0; p:=1;
for i:=1 to n do
    begin
         sum:=sum+a[i]
    end;
writeln('summa elementov=',sum:6:2);
if sum>10 then
for i:=1 to n do
begin
  if a[i] mod2=0 then kol:=kol+1;
writeln ('kol-vo 4et el-tov;:',kol:6:2);
end;
else
for i:=1 to n do
begin
if a[i]mod2=1 then p:=p*a[i];
end;
end.

program lab3;
uses crt;
const n = 10;
type mas = array [1..n] of double;
var a: mas; i, kol: integer; sum, p: double;
begin
clrscr;
writeln ('vvedite ',n:2,' elementov masiva: ');
for i := 1 to n do read(a[i]);
writeln('vvedeniy masiv: ');
for i:=1 to n do write(a[i]:6:2);
writeln;
kol := 0; sum := 0; p := 1;
for i := 1 to n do
  sum := sum + a[i];
 
writeln('summa elementov = ', sum:6:2);
 
if sum > 10 then begin
  for i:=1 to n do
    if a[i] mod 2 = 0 then kol := kol + 1;
  writeln ('res: ', kol:6:2);
end else begin
  for i:=1 to n do
    if a[i] mod 2 = 1 then p := p * a[i];
    writeln ('res: ', p:6:2);
end;
 
readln;
end.

program    lab3;
uses       crt;
const      WG=10;
type       tmasi=array[1..WG]of integer;
var        a:tmasi;
           k,i,j:byte;
           s,p:integer;
           
procedure pro_vv_mas(var n:byte; var mas:tmasi);
var       i,kl:byte;
begin
     writeln('1-vvod s klaviature; 2-sluchayno');
     readln(kl);
     if kl=2 then randomize;
     writeln('razmernost`');
     readln(n);
     for i:=1 to n do
     case kl of
     1:begin
            writeln('vvedi ',i,' element');
            readln(mas[i]);
       end;
     2:mas[i]:=random(50);
     end;
end;
 
procedure pro_out_mas(n:byte; mas:tmasi);
var       i:byte;
begin
     writeln('massiv:');
     for i:=1 to n do
     write(mas[i]:5);
end;
 
begin
     pro_vv_mas(j,a); writeln('massiv:'); pro_out_mas(j,a);
     writeln;
     p:=1;
     s:=0;
     k:=0;
     for i:=1 to j do begin
     if (a[i]mod 2=0) then inc(k)else p:=p*a[i];
     s:=s+a[i];       end;
     if s>10 then writeln('kolichestvo chetnix elementov-',k)else writeln('proizvedenie nechetnix elementov-',p);
end.