Ввести с клавиатуры последовательность из N элементов. Найти сумму положительных элементов, значения которых не превышают 2. Вывести найденные сумму и количество.
( программирование на языке Pascal )/

var n,i,k:integer;a:array[1..4096] of integer;beginreadln(n);for i:=1 to n dobeginreadln(a[i]);if (a[i]<=2) and (a[i]>0) then k:=k+a[i];end;writeln('Summa = ',k);end.