Question

Составить программу на языке Паскаль, которая запрашивает 3 числа(оценки), считывает их, находит средний балл, выводит результат на экран.

Answer 1

Примерно так.
var  b1,b2,b3,bs: real;
beginreadln(b1,b2,b3);bs := (b1+b2+b3)/3;writeln(bs);end.

Answer 2

program srednee
var  b,b2,b3,sb: real;
begin
write('Введи первую оценку: ');
readln(b);
write('Введи вторую оценку: ');
readln(b2);
write('Введи третью оценку: ');
readln(b3);
sb:=(b+b2+b3)/3;
writeln(sb);
end.