Пользователь вводит 17 чисел. посчитайте сколько из них больше нуля

// Пример программы на языке Паскаль.

var    i, x, y : integer;                           // объявляем переменные целочисленного типа.begin   writeln(\'Введите 17 чисел:\');      // вывод строки на экран.    for i:=1 to 17 do                        // начало цикла.      begin        readln(x);                             // считываем число, введенное с клавиатуры.        if (x > 0) then                      // проверяем, что число больше нуля.           y := y + 1;                       // считаем количество чисел больше нуля.      end;   write(\'Количество чисел больше нуля равно: : \', y);         // вывод строки на экран. end.