ЛЮДИ ДОБРЫЕ

[firozveus]

условие:
Даны действительные числа a[1],a[2]... Известно, что a[1]>0 и
что среди a[2],a[3],... есть хотя бы одно отрицательное число.
Пусть a[1],...a[n] - члены данной последовательности, предшеству-
ющие первому отрицательному члену (n заранее неизвестно). Полу-
чить среднее геометрическое a[1],...,a[n].
прога:
program rgr1_8_v4;
const m=5;
type mas=array[1..m] of real;
var a:mas; i, n:integer;sg,p:real;
begin
writeln('введите массив');
for i:= 1 to m do read(a[i]);
writeln('исходная массив');
for i:=1 to m do writeln(a[i]:7:3);
writeln;
p:=1;
begin
for i:=1 to m do
if a[i]<0 then
n:=i;
p:=p*a[i];
sg:=exp(1/n*ln(p));
writeln('среднее геометрическое =',sg:8:4);
end;
end.

Условие:
Даны целые числа a[1],...,a[n] (в этой последовательности могут
быть повторяющиеся члены). Получить все числа, которые входят в
последовательность по одному разу.
Прога:
program rgr1_10_v4;
const n=5;
type mas=array[1..n] of integer;
var a:mas;i, k:integer;
begin
k:=0;
writeln('введите массив');
for i:= 1 to n do read(a[i]);
writeln('исходная массив');
for i:=1 to n do writeln(a[i]:7);
writeln;
begin
for i:=1 to n do
if a[i]<>a[i] then
k:=k+1;
writeln('количество=', k);
end;
end.
ГДЕ НЕПРАВИЛЬНО? на завтро очень надо, а то автомата не будет
и покажите прогу правильную.