dz3 ch1

program part1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  slovo = object
    str:string;
    procedure init;
    procedure vivod;
    function bukvi:integer;
  end;

  sett =set of char;
  const mn:sett=['a','e','i','o','u'];

  procedure slovo.init;
  begin
    write('Enter line: ');
    readln(str);
  end;

  procedure slovo.vivod;
  begin
    writeln('Word: ',str);
  end;

  function slovo.bukvi;
    var
    g,i:integer;
  begin
     g:=0;
     for i:=1 to length(str) do begin
       if not(str[i] in mn) then begin
        inc(g);
       end;
     end;
     bukvi:=g;
  end;

  var slovechko:slovo;
      p:integer;

begin
  slovechko.init;
  slovechko.vivod;
  slovechko.bukvi;
  p:=slovechko.bukvi;
  writeln('Consonants number: ',p);
  readln;
end.