Задача на Паскале

[Веселина]

В заданном слове подсчитать количество гласных букв

[ByAlex]

Сообщение от Веселина

В заданном слове подсчитать количество гласных букв

Как то вот так -

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s:string;
  kol,i:integer;
  glasnye:set of char;
begin
  // ввод массива
  glasnye:=['а','е','и','о','у','ы','э','ю','я'];
  write('Vvedite slovo - ');
  read(s);
  kol:=0;
  for i := 1 to length(s) do
  begin
    if s[i] in glasnye then
      inc(kol);
  end;
  writeln;
  if kol=0 then
    write('Glasnyh bukv net!')
  else write('Kol-vo glasnyh bukv = ',kol);
  readln;
  readln;
end.