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

[Аля321]

Помогите пожалуйста составить программы!
1.Составьте программу подсчета различных гласных букв в слове Х.
2.Составьте программу вычисления произведения простых делителей натурального числа N.

[Stilet]

Попытки были?

[newerow1989]

1 задача:

const x='программирование';
var i,c:byte;
begin
   c:=0;
   For i:=1 to Length(x) do
      Case x[i] of
      'а','е','ё','и','о','у','ы','э','ю','я': c:=c+1;
      end;
   Writeln(c);
   Readln;
end.

Насчет 2-й задачи вычисление произведения простых делителей натурального числа N будет N (я так думаю)