Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению.
В Паскале

var i, x, n, s: integer;begin  write('n='); readln(n);  for i := 1 to n do begin    readln(x);    if x = i then s := s + 1;  end; writeln('таких чисел = ', s);end.