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.
