Ребят решить 2 любых , только правильно и чтоб запись правильная была :3

Ребят решить 2 любых , только правильно и чтоб запись правильная была :3 

  • Ну два последних сделаю :)
    5.
    uses crt;
    const N=10;
    var a:array [1..N] of integer;
        k,x:integer;
    begin
         for x:=1 to N do
         begin
              write('a[',x,']:');
              readln(a[x]);
              if a[x]=0 then inc(k);
         end;
         writeln('Количество нулей: ',k);
    end.
    ---
    6.
    uses crt;
    const N=10;
    var a:array [1..N] of integer;
        k,x:integer;
    begin
         for x:=1 to N do
         begin
              write('a[',x,']:');
              readln(a[x]);
              if a[x] mod 2=0 then inc(k);
         end;
         writeln('Количество четных элементов: ',k);
    end.