Question

Помогите пожалуйста!
задача 3.

Answer 1

var
  n, i, s:integer;
  a:array [1..100] of integer;
begin
  writeln('Vvedite razmer massiva');
  readln(n);
  writeln('Vvedite massiv');
  for i:=1 to n do
  readln(a[i]);
  writeln('Massiv');
  for i:=1 to n do
  write(a[i],' ');
  writeln();
  s:=0;
  for i:=1 to n do
  if a[i]=i then s:=s+1;
  writeln('Kolichestvo = ',s);
  readln();  
end.

Answer 2

2)
const
        n = 20;
 var
     a : array [1..n] of integer;
     b,i,num : integer;

begin
//Формирование массива пропускаю
readln (b);
nom := 0;
for i := 1 to n do  //Поиск номера элемента
 if a[i] = b then    // , равного b
  num := i;
if num <> 0 then
 writeln ('Есть, его порядковый номер=',num)
  else
    writeln ('Нет');
end.

Answer 3

не прочитал