Впяти тестовых вопросах мальчик получил оценки . составте программу которая определит средние значение оценок полученных мальчиком начало такое где program var begin

Var n,n1,n2,n3,n4:real;
Begin
 Write('Введите оценки: '); readln(n,n1,n2,n3,n4);
n:=(n+n1+n2+n3+n4)/5;
Writeln('Средний : ',n);

End.