Задачи по Pascal

[PR0Z0N]

Народ,помогите решить следующие задачки по Pascal:
1)
Даны натуральное число N и последовательность A1, A2, …,A N, AN+1. Определить наибольшее из нечетных и количество четных чисел, входящих в последовательность A1, A2, …,A N, AN+1.
2)
Дана символьная строка. Определить, есть ли в данной строке два любых одинаковых символа, и вывести соответствующее сообщение.
3)
1.Составить программу для нахождения наибольшего общего делителя и наименьшего общего кратного двух натуральных чисел (НОК(А, В)=(А*В)/НОД(А, В)).
Буду очень благодарен!Заранее спасибо!

[Рамик]

Вторая задача:

program prim_2;
uses crt;
var st:string;
    i:integer;
    mn:set of char;
begin
clrscr;
writeln('vvedite stroku:');
readln(st);
mn:=[];
for i:=1 to length(st) do begin
    if st[i] in mn then
    writeln('simvol: "',st[i],'" dubliruetsya');
    include(mn,st[i]);
    end;
readln;
    end.

Не забудь нажать на весы! ;-) =)

[PR0Z0N]

спасибо Рамик!=)

[Рамик]

пожалуйста!=)

[PR0Z0N]

Вот еще бы 1ую и 3ию решить,вообще бы здорово было)) а то зачет завтра..((