[razh2009]

я не знаю почему, но когда я добавил обработку а=0 б=0 с=0, программа всеравно не прошла тесты((.... пришло сообщение что там

Ошибка времени исполнения;
В конце программы на C/C++ нет оператора 'return 0';
'return (не 0)' в программе на С/С++;
'halt(не 0)' в программе на паскале;
'System.exit(non-zero)' в программе на Java;
Необработанная исключительная ситуация
в чем ошибка я не могу понять((

Код:

program Project1d;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,c,x1,x2,x3,x4,t1,d,t2: double;
tf1, tf2: boolean;
i:Integer;
label hh;
Begin
  Reset(input,'bisqr.in');
  Rewrite(Output,'bisqr.out');
a:=4; b:=-13; c:=7; i:=0; tf1:=false; tf2:=false;
read(a,b,c);
if (a=0) and (b=0) and (c=0) then begin Writeln(-1); 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 i:=0;

writeln(i);
if tf1 then writeln(x1:0:6,#10#13,x2:0:6);
if tf2 then writeln(x3:0:6,#10#13,x4:0:6);
hh:
CloseFile(Output);
end.