вводя по очереди оценки по контрольной работе 20 учащихся, определить, сколько из них было неудовлетворительных

Паскаль
for i:=1 to 20 do begin 
readln(ozenka); 
if ozenka<=2 then k:=k+1; end; 
writeln(k);
думаю, объяснений не надо...