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

начать

вар И, Н, К, А: целое число; / /к - это количество целых чисел, являющиеся положительными

к : = 0; / /н - это количество целых чисел, являющиеся положительными

readln (н);

для i : = 1 до N делать

начать

readln (а);

если a больше 0 тогда

К : = К + 1;

конца;

writeln (' Количество положительных целых чисел: ', к, '. ');

конец.