Составить программу в которую вводят 10 оценок ученика и на выходе печатается количество 2 ученика. Помогите пожалуйста)

если будут ошибки - извините, время было мало

оставалось 3 минуты чтобы добавить ответ

Спасибо большое)

на всякий случай проверьте в паскале

Хорошо)

program ocenki;varA:array[1..10] of integer;dv,i:integer;beginwriteln(' Введите 10 оценок ученика.После каждой оценки жмите "enter" ');For i:=1 to 10 do beginreadln(a[i]);end;For i:=1 to 10 do beginif a[i]=2 then dv:=dv+1;else end;writeln('у ученика ',dv,' двоек');end.