параметрические задачи Опции

[polic]

program c3;
var A,B,X:real;
begin
writeln ('vvedite A,B');
readln (A,B);
IF (A*A-A*B+B*B)<>0 then X:=power(( A*A-A*B+B*B)/(A*A-A*B+B*B),(1/4));
IF (A*A-A*B+B*B)=0 then writeln ('oshibka:');
writeln ('x=',x:5:2);
readln (x);
end.

как сделать чтоб если (A*A-A*B+B*B) обращалось в ноль то программа останавливалась а не писала x:=0

[volvo]

IF (A*A-A*B+B*B)=0 then begin writeln ('oshibka:'); Halt; End;

[polic]