[SerginhoLD]

да я фигею с тебя, код в предыдущем сообщении готовый уже дал

вот например с вариантами абс

PHP код:

program Project2n;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label hh;

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;
  tf1, tf2: boolean;
  i:Integer;
  f: textFile;
Begin
  //a:=0; b:=1; c:=-1;
  i:=0; tf1:=false; tf2:=false;
  AssignFile(f,'file.txt');
  Reset(f);
  Read(f,a,b,c);
  CloseFile(f);
  if (a=0) and (c<>0) then
   if b<>0 then
   begin
    t1:=-c/b;
    if t1 >= 0 then
    begin
      x1:=sqrt(t1); x2:=-x1;
      tf1:=true;
      i:=i+2;
    end;
    goto hh;
   end
   else begin
    writeln('0'); goto hh;
   end;
  if (a=0) and (c=0) then
  begin
    writeln('0'); goto hh;
  end;
  d:=b*b-4*a*c;
  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;
      tf1:=true;
      i:=i+2;
    end;
    if t2 >= 0 then
    begin
      x3:=sqrt(t2); x4:=-x3;
      tf2:=true;
      i:=i+2;
    end;
  end
  else if d=0 then
  begin
    t1:=(-b+sqrt(d))/(2*a);
    if t1 >= 0 then
    begin
      x1:=sqrt(t1); x2:=-x1;
      tf1:=true;
      i:=i+2;
    end;
  end
  else writeln('d < 0');

  hh: beep;

  writeln('kol-vo resheniy: ',i);
  if tf1 then writeln('x1: ',x1:8:2,#10#13,'x2: ',x2:8:2);
  if tf2 then writeln('x3: ',x3:8:2,#10#13,'x4: ',x4:8:2);

  readln;
end. 


внимание, я тебе кинул в прошлом сообщении ссылку на статью, там основы работы с файлами описаны, почитай обязательно, а то до меня вообще не допирает зачемм написан rewrite,
и присвоение значений переменным из файла: сначала указатель на файл, потом переменные read(f,a,b,c);, где f указатель