[SerginhoLD]

Код:

if d >= 0 then
    begin
      t1:=(-b+sqrt(d))/(2*a);
      t2:=(-b-sqrt(d))/(2*a);
      if t1 >= 0 then
        begin
          x1:=sqrt(t1); x2:=-x1;
          //m[1]:=x1;m[2]:=x2;
writeln('x1: ',x1,'; x2: ',x2);
        end
      else writeln('нехорошее уравнение');
      if t2 >= 0 then
        begin
          x3:=sqrt(t2); x4:=-x3;
          //m[3]:=x3; m[4]:=x4;
writeln('x3: ',x3,'; x4: ',x4);
        end
      else writeln('нехорошее уравнение');
    end
// и все вроде :)