Нужна помощь!!! паскаль

Question

Заранее спасибо)) ) 
 
паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять? Условный оператор не использовать

Кирилл Карпов · Accepted Answer

с := 0; 
i := 1; 
while (i <= 20) and (tabel[ i ] = 5) do 
begin 
Inc(i); Inc(c); 
end; 
Writeln(c, ' учеников имеют 5');