Задача опраделение наибольшего кратного

[Ogoldela]

Пожалуйста, люди умные, которые без проблем решают задачи на Паскале, пожалуйста помогите решению задач... Я буду Вам безумно благодарна, в пятницу надо сдать, а я ничего в этих задачах не понимаю.
Задача
1) Даны натуральные значения M и N. Определите их наибольщее общее кратное NOK
Задача
2) Вводится послед. чисел O - конец послед. Определите содеожит ли послед. хотябы 2 равных соседних числа (а, = a i+1)

[VoRTeX]

1) var
z, m, n, NOK, min:real;
finish:boolean;
begin
finish:=false;
Readln(m, n);
if m<n then min:=m else min:=n;{проверяем какое число наименьшее}
for z:=min downto 2 do
if (not finish) and (m div z= m/z) and (n div z=n/z) then
begin
NOK:=z;
finish:=true;
end;
Writeln(NOK);
Readln;
end.

[VoRTeX]

2)
const
O=10;{кол-во элементов последовательности}
var
z, d:integer;
posled:array[1..O] of real;
begin
for z:=1 to O do
Readln(posled[z]);{считываем послед. с клавиатуры}
for z:=1 to O-1 do
begin
if posled[z]=posled[z+1] then
begin
d:=d+1
Writeln('d:', posled[z], '=', posled[z+1]);
end;
end;
Readln;
end.

[Ogoldela]

Огромное СПАСИБО!!! Вы мой спаситель, знай, что зачет по информатике Ваша заслуга...