Ввести n чисел с клавиатуры подсчитать количество положительных чисел

Файл во вложениях. И на будущее, указывайте язык программирования.

p.s. комментарии и некоторый текст на русском языке, который не отобразился:
//k - количество положительных чисел
//n - количество чисел 
writeln('Количество положительных чисел: ', k, '.');