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

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

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var   i, n: integer;   p: biginteger; begin   write('введите число n ');   readln(n);   p : = 1;   for i : = 1 to n do p : = p * i;   writeln( 'произведение чисел от 1 до ',n,' равно : ',p); end. тест №1: введите число n 5 произведение чисел от 1 до 5 равно : 120 тест №2: введите число n 100 произведение чисел от 1 до 100 равно : 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

Aurora 3d text and logo maker - это продвинутый, мощный дизайнерский инструмент для создания уникального 3d текста, кнопок и логотипов, имеет достаточно большое количество шаблонов и готовых форм, которые можно использовать для создания собственного текста. aurora 3d text and logo maker имеет комплект эффектов, анимаций, текстур, с которых можно украсить 3d логотип или текст. при создании трёхмерного логотипа можно отрегулировать уровень света, добавить теней, рельеф, выбирать различные варианты искривления, выравнивания, освещения, наложения объектов и т. д. допускается импорт шрифтов и svg-графики. итоговый вариант выводится в виде png, tga, tiff, jpg, bmp, xpm и ppm-файлов.