Задача на вывод чисел на PascalABC. То что программа должна сделать описано во вложении , по возможности, для понимания приложите блок схему с пояснением алгоритма работы !

Тем кто буду очень благодарна! (жадным до , которые будут отвечать бессмыслицу просто чтобы забрать сразу прилетит жалоба и их заберут заблокировав аккаунт, поэтому не надо так, котята ^_^)

1 задани это снимок дяде)  

Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными. 

VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.

3  for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end

4  не знаю

1 задани это снимок дяде)  

Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными. 

VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.

3  for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end

4  не знаю