напишите программу вычисляющую выражение х= b 4ac: 2a

var

b:real;

a:real

c:real;

begin

writeln('Введите числа')

readln(a,b,c)

writeln('Подставим это в выражение

x=b*4ac/2a то получится что х= ', b*4*a*c/2*a)

end.