[SerginhoLD]

на

PHP код:

program Project2n;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: double;
  tf1, tf2: boolean;
  i:Integer;
Begin
  a:=4; b:=-13; c:=7; i:=0; tf1:=false; tf2:=false;
  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 writeln('d < 0');

  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.