[SerginhoLD]

PHP код:

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;
  tf1, tf2: boolean;
  i:Integer;
  label hh;
Begin
  //a:=4; b:=-13; c:=7;
  i:=0; tf1:=false; tf2:=false;
  hh: beep; //вот этого наверно не хватало
  readln(a);readln(b);readln(c);
  if (a=0) or (c=0) then
  begin
    writeln(-1); goto hh;
  end;
  d:=b*b-4*a*c;