Решите пожалуйста по информатике

var e,f,g,d,a,b,c,x1,x2:real;

begin

writeln('Введите значение e: ');

readln(e);

writeln('Введите значение f: ');

readln(f);

writeln('Введите значение g: ');

readln(g);

a:=e+sqrt(sqr(abs(f-g))*abs(f-g));

b:=(f/g)+7;

c:=(15+f)/(17+g);

d:=sqr(b)-4*a*c;

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln('a = ',a);

writeln('b = ',b);

writeln('c = ',c);

writeln('d = ',d);

writeln('x1 = ',x1);

writeln('x2 = ',x2);

end.