Практические / prakt10 / 10,1

      program glas;
      type letters=set of'0'..'z';
      var glasn,chif:Letters;
      text:string;
      i,g,a:byte;
      begin
      glasn:=['A','a','E','e','I','i','O','o','U','u'];
      chif:=['0','1','2','3','4','5','6','7','8','9'];
      write('введите предложение ');
      readln(text);
      G:=0;
      for I:=1 to length(text)do
      if text[I] in Glasn then G:=G+1;
      writeln(' в предложении  <',text,'>', G, 'гласных');
      a:=0;
      for I:=1 to length(text)do
      if text[I] in chif then a:=a+1;
      writeln(' в предложении  <',text,'>', a, 'цифр');
      
      end.