Se considera un sir de caractere.Sa se scrie programe care:
numara consoanele.

Va rog sa fie program pascal cu programe simple de cl 10!

program nrConsoane;

const consoane=['a'..'z', 'A'..'Z']-['a','e','i','o','u','A','E','I','O','U'];

var sir: string;

   i, contor: integer;

begin

  write(' introdu sirul de caractere: '); read(sir);

  for i:=1 to length(sir) do

      if sir[i] in consoane then inc(contor);

  writeln( 'sirul dat contine ',contor,' consoane');

end.