Паскаль. Помогите срочно
d=(B+C)/2a

Большое спасибо, просто выручил)

var a,b,c,d:real;beginwriteln('Введите a, b, c:');readln(a,b,c);d:=(b+c)/(2*a);writeln('d = ',d);end.Пример:Введите a, b, c:5 7 2d = 0.9

программа в файле==================