Пожалуйста напишите задачу на наименьший общий делитель и решение)))  

В чем проблема то?  > НОД(А,В) = НОД(В, А mod B) , если В не равен 0; НОД(А,0)=А  Вот тебе дано определение -- фактически алгоритм. По нему и можно сразу же написать:  function nod(a, b: longint): longint;  begin      if b <> 0 then          nod := nod(b, a mod b)      else          nod := a;  end;  var      a, b, c, d: longint;  begin      write('A B C D? ');      readln(a, b, c, d);      writeln('НОД(A, B): ', nod(a, b));      writeln('НОД(A, C): ', nod(a, c));      writeln('НОД(A, D): ', nod(a, d));  end.  От рекурсии можно при желании избавится, тогда надо использовать цикл.

 для двух целых чисел m и n называется наибольший из их общих делителей. Пример: для чисел 6 и 9 наибольший общий делитель равен 3. Наибольший общий делитель существует и однозначно определён, если хотя бы одно из чисел m или n не равно нулю. В школьной программе обозначается так: НОД(m, n) Понятие наибольшего общего делителя (НОД) распространяется на любой набор из более чем двух целых чисел. Чаще всего НОД используется для сокращения дроби - если найти НОД числителя и знаменателя, то на это число можно сократить числитель и знаменатель данной дроби.