Вычислить значение выражения

uses crt;
var g,a,b,c,d,e,f,y,x,q,h,n,l,i,s,n1:real;
begin
Textcolor(red);
writeln('Formula ga4+sa3-ca-d=?');
Textcolor(Green);
writeln('Nahodim A');
Textcolor(black);
writeln();
writeln('Vvedite A');
readln(a);
writeln('Vvedite G');
readln(g);
writeln('Vvedite S');
readln(s);
writeln('Vvedite С');
readln(c);
writeln('Введите D');
readln(d);
y:=g*a*a*a*a;
q:=s*a*a*a;
i:=c*a;
n:=y+q-i-d;
Textcolor(Red);
writeln(y,'+',q,'-',i,'-',d,'=',n);
Textcolor(green);
writeln();
writeln('Formula ax4+bx3-cx-d=?');
writeln('Nahodim  B');
Textcolor(black);
writeln('Vvedite B');
readln(B);
writeln('Vvedite G');
readln(G);
writeln('Vvedite S');
readln(S);
writeln('Vvedite С');
readln(c);
writeln('Введите D');
readln(d);
y:=g*b*b*b*b;
q:=s*b*b*b;
i:=c*b;
n1:=y+q-i-d;
Textcolor(Red);
writeln(y,'+',q,'-',i,'-',d,'=',n1);
x:=a-(a-(b-a*n)/n1-n);
writeln('        ',b-a   );
writeln('c=',a,'- ---------' ,'*',n,'=',x:0:5);
writeln('        ',n1-n       );
readln;
end.

writeln('c=',a,'- ---------' ,'*',n,'=',x:0:5);