програма на паскале для вычесления годовой оценки срочно надо помогите побольше решений
Program a;
var a,b,c,d,e:integer; {a,b,c,d - оценки за 1-4 четверти, e - оценка за год}
Begin
writeln(Введите оценки за 1-4 четверти);
readln(a,b,c,d);
e:=round((a+b+c+d)/4);
writeln(Годовая оценка = ,e);
end.
Оцени ответ
