Напишите программу, которая по введенным с клавиатуры числам a, f, g и h будет вычислять значения коэффициентов a,b и c, а также значение дискриминанта D, решать это квадратное уравнение и выдавать результаты его решения.

var a,b,c,e,f,g,h,w,d,x1,x2:real;beginwriteln('e, f, g, h, w:');readln(e,f,g,h,w);a:=sqrt(abs((w+h)/e));b:=sqr(e+f);c:=sqrt(abs(g-2*e))-sin(f);writeln('a = ',a,' b = ',b,' c = ',c);d:=b*b-4*a*c;writeln('d = ',d);if d>0 then   begin   x1:=(-b+sqrt(d))/(2*a);  x2:=(-b-sqrt(d))/(2*a);  writeln('x1 = ',x1,'  x2 = ',x2);  end else if d=0 then begin x1:=-b/(2*a); writeln('x = ',x1); end             else writeln('Корней нет');end.Пример:e, f, g, h, w:8 -5 2 3 5a = 1 b = 9 c = 2.7827331121108d = 69.8690675515568x1 = -0.320614053728802  x2 = -8.6793859462712

var   a,b,c,d,e,f,g,h,w,x1,x2: real;begin  write ('Введите e: '); readln (e);  write ('Введите f: '); readln (f);  write ('Введите g: '); readln (g);  write ('Введите h: '); readln (h);  write ('Введите w: '); readln (w);  a:=sqrt(abs((w+h)/e));  b:=(e+f)*(e+f);  c:=sqrt(abs(g-2*e))-sin(f);  d:=b*b-4*a*c;  writeln;    writeln ('a = ',a);  writeln ('b = ',b);  writeln ('c = ',c:9:5);  writeln ('d = ',d:9:4);  if d>=0     then begin      x1:=(-1*b+sqrt(d))/(2*a);      x2:=(-1*b-sqrt(d))/(2*a);       writeln ('x1 = ',x1:10:6);        writeln ('x2 = ',x2:9:5);end    else      writeln ('Уравнение не имеет корней');    end.---------------------------------------Введите e: 8Введите f: -5Введите g: 2Введите h: 3Введите w: 5a = 1b = 9c =   2.78273d =   69.8691x1 =  -0.320614x2 =  -8.67939