[vindows93]

program z;
Var a,b,d,c,e,f:real;

begin
readln (a);
readln (b);
readln (c);
d:=(b*b)-((4*a)*c);
writeln (d);
if d>= 0 then
begin
e:=((b*b)-(sqrt(d)))/(2*a);
f:=((b*b)+(sqrt(d)))/(2*a);
writeln(e);
writeln(f);
Writeln('дискриминант отрицательный').
end.
else

if здесь требует елсе или точка с запятой ставил нихрена таже ошибка.......
d=0 then
begin
e:=(-b)/(2*a);
writeln(e);
Writeln('одно решение');
end
else

if d<=0 then
begin
Writeln('дискриминант отрицательный хрен тебе в руки');
end.

памагите напутал с операторами сказано блин надоело уже!!!!
плиз всё проверьте а то !!!!!!!!