Написать программу на языке 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 <= 5) then begin sum := sum + grade; count := count + 1; end; until (grade < 0); if count > 0 then begin average := sum / count; writeln('Средний балл: ', average:0:2); end else writeln('Нет оценок для расчета.'); readln; end.