Если с клавиатуры вводить оценки, то так
var
a,b,c,d:integer;
begin
a:=0; b:=0; c:=0;
for i:=1 to 20 do
begin
readln(d);
if d=2 then inc(a) else
if d=3 then inc(b) else
if d=4 then inc(c);
end;
write(' dvoek - ', a, 'troek - ', b, 'chetverok - ', c);
readln;
end.
<span>Потому что слово "динамичный" от слова "динамика"-изменение, подстраивание. После изменение формулы или данного связанного с формулой моментально (ну или не моментально-зависит от производительности ПК) изменяется часть таблицы, подвластная этой формуле. </span>