Один аспект не совсем понятен. Написать программу на языке Pascal для нахождения среднего арифметического оценки (оценки вводятся с клавиатуры, оценки могут иметь значения от 2 до 5, количество оценок не ограничено , ввод оценок прекращается при введении числа 0)

program AverageGradeCalculator;

var
grade: Integer;
sum, count: Integer;
average: Real;

begin
sum := 0;
count := 0;

writeln('Введите оценки (от 2 до 5). Для окончания введите отрицательное число.');

repeat
write('Оценка: ');
readln(grade);

if (grade >= 2) and (grade  0 then
begin
average := sum / count;
writeln('Средний балл: ', average:0:2);
end
else
writeln('Нет оценок для расчета.');

readln;
end.