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

начатьвар И, Н, К, А : целое число; //к - это количество целых чисел , являющиеся положительными к : = 0; //н - это количество целых чисел , являющиеся положительными readln ( н );для i := 1 до N делатьначатьreadln ( а ); если a больше 0 тогда К := К + 1;конца;writeln ( \' Количество положительных целых чисел: \' , к , \' . \' );конец.