{* Задача 442 *}

Unit ZADACH442;
Interface
Implementation
Begin
 writeln('Пользователь вводит с клавиатуры 10 вещественных чисел. Определить количество положительных чисел.');
End.

Program zadach442;

Uses zadach442.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  k : integer;
  i : integer;
  a : real;
Begin
  k := 0;
  writeln ('Введите числа');
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    readln (a);
    If a > 0 Then
      k := k + 1;
  End;
  writeln ('k=', k);
End.