Помогите пожалуйста с задачами на pascal

[Fatality]

Люди добрые, выручайте, очень нужна ваша помощь! Помогите пожалуиста с 2мя задачками на паскале... Я никак не разберусь в их решении, а время поджимает... Помогите пожалуйста!
1) Составить программу вывода на экран наибольшего делителя натурального числа N, меньше заданного натурального М.
2) Составить программу подсчета числа различных гласных букв в словах X и Y.

[Stilet]

И что не получается?
Как думаеш решать?

[Fatality]

в том то вся соль, что я ВООБЩЕ ЭТУ ТЕМУ НЕ ПОНЯЛ... блин, завтра последний срок сдачи, а как решать не знаю...((( ЛЮДИ, ОЧЕНЬ ПРОШУ, ПОМОГИТЕ ПОЖАЛУЙСТА...

[bondik]

думаю саму программу написать тебя не затруднит...
1) делишь N на числа от 1 до M проверяешь чтобы остаток был 0 то есть нацело,самое большое число удовл этим условием и будет ответом на поставленный вопрос
2)массив чаровский,все гласные буквы вводишь в него ,и сравниешь с каждым элементом строки,учитывая что строка это тот же самый массив чаров,2 цикла for вот и вся реализация...

[Fatality]

СПАСИБО! С первой более-менее понятно, сейчас попробую сделать... Но со второй вообще ничего не понятно, т.к. массивы я почти не изучал...(((

[alex_fcsm]

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

Сначала составляешь множество гласных букв в Х.
Затем берешь гласную букву слова Y и проверяешь на принадлежность составленному множеству

const glasn=['a','o',...]

M:set of char
.......
M:=[];
for i:=1 to length(x) do
if x[i] in glasn then M:=M+[x[i]];
...............
for i:=1 to length(y) do
 if (y[i] in glasn)and(not(y[i] in M)) then write(y[i]);