{* Задача 465 *}

Unit ZADACH465;
Interface
Implementation
Begin
 writeln('Дан файл вещественных чисел a.txt. Найти количество положительных элементов и сумму положительных элементов.');
End.

Program p1;

Uses zadach465.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  f1 : text;
  k  : integer;
  n  : integer;
  i  : integer;
  s  : real;
  x  : real;
  a  : real;
Begin
  assign (f1, 'a.txt'); {* Связывание f1 с файлом 'a.txt' *}
  reset (f1); {* Открытие файла для чтения *}
  k := 0;
  s := 0;
  While Not eof(f1) Do {* Пока не конец файла *}
  Begin
    readln (f1, x);
    write ('x=', x, ' ');
    If x > 0 Then
    Begin
      k := k + 1;
      s := s + x;
    End;
    
  End;
  close(f1); {* Закрыть файл f1 *}
  writeln ('k=', k);
  writeln ('s=', s);
End.