用pascal编写一个程序求出 x^2+3x+2=0 的两个解。
求大神 为什么这样错了。

你设是，的，额做什么》

s，d，e

function不是这样子用的
var x1,x2,y1,y2,a,b:real;
function f(x:longint):longint;//求一元二次方程的解用不着它
begin
f:=a*x*x+b*y+c;
end;
begin
a:=1;b:=3;c:=2;
if △<0 then 输出错误;
x1:=求根公式1;
x2:=求根公式2;
writeln('X1=',x1,' X2=',x2);
end.

function连定义都没有，做个毛

不加function和后面那一句

不用function,把function删了