Пользователь вводит 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.