{* Задача 50 *}

Unit ZADACH50;
Interface
Implementation
Begin
 writeln('Дан массив P(N), состоящий из N вещественных чисел. Определить сколько раз встречается число 7.13 среди элементов массива.');
End.

Program zadach50;

Uses zadach50.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  P : Array[0..100] Of real;
  N : integer;
  i : integer;
  j : integer;
Begin
  write ('Введите N: ');
  readln (N);
  For i := 1 To N Do {* Переменная i увеличивается с 1 до N *}
  Begin
    write ('Введите P[', i, ']: ');
    readln (P[i]);
  End;
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
    If P[i] = 7.13 Then
      j := j + 1;
  writeln ('7.13 встречается ', j, ' раз.');
  readln
End.