{* Задача 448 *}

Unit ZADACH448;
Interface
Implementation
Begin
 writeln('Дана последовательность ненулевых вещественных чисел, за которой следует 0 (0 – признак конца последовательности). Найти номер последнего элемента равного заданному числу alfa.');
End.

Program zadach448;

Uses zadach448.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k    : integer;
  c    : integer;
  alfa : real;
  a    : real;
Begin
  k := 0;
  writeln ('Введите alfa');
  readln (alfa);
  writeln ('Введите последовательность');
  Repeat    readln (a);
    k := k + 1;
  If a = alfa Then
    c := k;
  Until a = 0;
  writeln ('c=', c);
End.