Program Aljabar; ( Algoritma dan Pemograman )

       Program Aljabar;
uses crt;

var
 a,b,c,x:real;
begin
clrscr;
write('masukan nilai a=');readln(a);
write('masukan nilai b=');readln(b);
write('masukan nilai c=');readln(c);
x:=(-b+2*c*c+4*a*b*c)/((2*c)*(3*a+4*c));
write('hasilnya adalah=',x:5:2);
readln;

end.