Задачки для Pascal.не сложные,но я не умею...

[Болванка]

1) найти НОД для 3х натуральных чисел
2) разложить данное натуральное число n на простые множители

если не трудно,как можно подробнее

[Mad_Cat]

1)

var a,b,c:integer;
function NOD(x,y:longint):longint;
 begin
  if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;
begin
readln(a,b,c);
writeln(Nod(nod(a,b),c));
end;

2)

var
 i,j,n,f:integer;
 begin
  repeat
   write(' Введите натуральное число N ');
   readln(n);
  until N>0;
   write(N:6,' = 1');
    f:=0; j:=n;
    for i:=2 to n div 2 do
     begin
      if j mod i=0 then
       begin
        f:=1;
         while j mod i=0 do
          begin
           write(' * ',i);
  j:=j div i
        end;
      end;
     end;
  if f=0 then writeln (' * ', n)
         else writeln
 end.

[cheef]

Не правильно задание прочтал