program Hello;
var c:char;
i, n:integer;
cz, cp, ci, lit, voc, cons:integer;
begin
cz:=0;
cp:=0;
ci:=0;
lit:=0;
voc:=0;
cons:=0;
writeln('Dati n:'); readln(n);
writeln('Dati ',n,' caractere:');
for i:=1 to n do begin
readln(c);
if(ord(c)>=48) AND (ord(c)<=57) then begin
cz:=cz+1;
if((ord(c)-48) mod 2=0) then begin
cp:=cp+1;
end else begin
ci:=ci+1;
end;
end;
if(ord(c)>=65) AND (ord(c)<=90) then begin
lit:=lit+1;
if(ord(c)=65) OR (ord(c)=69) OR (ord(c)=73) OR (ord(c)=79) OR (ord(c)=85) then begin
voc:=voc+1;
end else begin
cons:=cons+1;
end;
end;
end;
writeln('Numarul cifrelor zecimale:',cz);
writeln('Numarul cifrelor pare:',cp);
writeln('Numarul cifrelor impare:',ci);
writeln('Numarul literelor:',lit);
writeln('Numarul vocalelor:',voc);
writeln('Numarul consoanelor:',cons);
end.
Rezultat:
