Chương trình con giải một phương trình bậc hai tổng quát trong Maple

restart;

gpt:=proc(a,b,c)

local delta,x1,x2;

delta:=b^2-4*a*c;

if delta<0 then print(`Phuong trinh vo nghiem`);

elif delta =0 then x1:=-b/(2*a);

print(`phuong trinh co nghiem kep`,x1);

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

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

print(`phuong trinh co hai nghiem phan biet la`); print(x1,x2);

fi; end: