14440 Гбайт гбайт меньше кбайта в 10 раз поэтому 1440 умножем на 10
А,г лишнее потому что они не являются дорожными указателями
Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"
Функция "Счет" выведет кол-во ячеек с числами из выделенного фрагмента