Elaboraţi un program care citește de la tastatură n caractere și afi șează pe ecran:
a) numărul cifrelor zecimale citite;
b) numărul cifrelor pare;
c) numărul cifrelor impare;
d) numărul literelor citite;
e) numărul vocalelor;
f) numărul consoanelor.
Caracterele introduse se separă prin acţionarea tastei . Sînt admise cifrele zecimale 0, 1, 2, ..., 9 și literele mari A, B, C, ..., Z ale alfabetului latin.
(Vă rog, am nevoie repede)
(Limbajul PASCAL)

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: