[is_absent]

ну это нескольно не веб программирование
по первой задаче:

var
  a: array [1..10] of real;
  i, j: integer;
  sum: real;
begin
  for i:= i to 3 do
  begin
    sum:= 0;
    WriteLn('Последовательность №', i);
    for j:= 1 to 10 do
    begin
      a[j]:= Random;
      Write(a[j]:4:4, '':2);
      sum:= sum + a[j];
    end;
    sum:= sum / 10
    WriteLn();
    WriteLn('Среднее арифмитическое:', sum:4:4);
  end;
end;

должно работать. не проверял

Вторую поищу, где-то была решенная на паскале постучись в аську или на мыло. договоримся
вот алгоритм для НОДа (так называемый Бинарный Алгоритм Евклида):

  m:= a; n:=b; d:=1;
  {НОД(a,b) = d * НОД(m,n)}
  while not ((m=0) or (n=0)) do begin
    if (m mod 2 = 0) and (n mod 2 = 0) then begin
      d:= d*2; m:= m div 2; n:= n div 2;
    end else if (m mod 2 = 0) and (n mod 2 = 1) then begin
      m:= m div 2;
    end else if (m mod 2 = 1) and (n mod 2 = 0) then begin
      n:= n div 2;
    end else if (m mod 2=1) and (n mod 2=1) and (m>=n)then begin
      m:= m-n;
    end else if (m mod 2=1) and (n mod 2=1) and (m<=n)then begin
      n:= n-m;
    end;
  end;
  {m=0 => ответ=d*n; n=0 =>  ответ=d*m}

взят с http://algolist.manual.ru/maths/teornum/nod.php