PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger('n=');
  var c:char;
  var (kd,ke,ko,ka,kg,ks):=(0,0,0,0,0,0);
  for var i:=0 to n-1 do begin
    Readln(c);
    if c.IsDigit then begin
      kd+=1;
      if Pos(c,'02468')>0 then ke+=1 else ko+=1
      end
    else begin
      ka+=1;
      if Pos(c,'AEIOUY')>0 then kg+=1 else ks+=1
      end
    end;
    Writeln('Цифр ',kd,', из них четных ',ke,', нечетных ',ko);
    Writeln('Букв ',ka,', из них гласных ',kg,', согласных ',ks)
end.

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var a:=new integer[6];
var n:=ReadInteger('n=');
var t: char;
for var i:=0 to n do
begin
readln(t);
if t.Between('0','9') then
begin
inc(a[0]);
if t.ToDigit mod 2=0 then inc(a[1]) else inc(a[2]);
end;
if t.Between('A','Z') then
begin
inc(a[3]);
if t in ['A','E','Y','U','I','O'] then inc(a[4]) else inc(a[5]);
end;
end;
writeln('количество');
writeln('цифр :',a[0]);
writeln('четных: ',a[1]);
writeln('нечетных: ',a[2]);
writeln('букв: ',a[3]);
writeln('гласных: ',a[4]);
write('согласных: ',a[5]);
end.