N учащихся получили оценки за контрольную работу. Ввести оценку каждого воспитанника,

program zz1;
var n,i,k,a,s:integer; // задаем переменные целого типа
begin
write(введите количество воспитанников );
read(n); // вводим количество воспитанников
for i:=1 to n do
begin
writeln(введите оценку ,i,-го воспитанника );
read(a); // вводим оценку воспитанника
s:=s + a; // получаем сумму оценок
if (a=1)or(a=2) then k:=k+1; // получаем количество неудовлетворительных оценок
end;
writeln(количество неудовлетворительных оценок = ,k); // выводим ответ
writeln(среднее арифметическое оценок = , s/n);
end.