Общий вид цикла пока:
ПОКА <условие> ДЕЛАТЬ <действие>
Суть цикла:
Действие выполняется до тех пор, пока условие не станет ложным.
Пример:
А=1
ПОКА А<3 ДЕЛАТЬ А=А+1
Цикл закончится, когда переменная А станет равной 3.
Если условие изначально ложно, то цикл не выполнится ни разу.
Пример:
А=4
ПОКА А<3 ДЕЛАТЬ А=А+1
Цикл не выполнится ни разу и значение переменной А не измениться.
При составлении цикла ПОКА нужно обязательно следить, чтобы условие рано или поздно стало ложным, иначе цикл будет бесконечно выполняться.
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.