{* Задача 449 *}

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

Program zadach449;

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