Eu criei um programa para determinar se uma equação quadrática fornece um número 'real' como resposta e, em caso afirmativo, qual é. No entanto, esta é minha primeira vez trabalhando com if / else, para que meu programa não seja compilado após o resto e, depois de pesquisar por meia hora, não estou mais perto de descobrir por que o Code é o seguinte:

program Quadratic_Equation_Solver;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils, CustApp;
  var
    a, b, c : real;
begin
   writeln('Insert the Value for a please');
   readln(a);
   writeln('Insert the Value for b please');
   readln(b);
   writeln('Insert the Value for c please');
   readln(c);
   if (-4*a*c<b*b) then
      writeln('These variables return an imaginary quantity that');
      writeln('Cannot be computed. Please try again');
      readln;
   (*here it breaks*) else
   Writeln('The Answer is x = ',(-b+sqrt((b*b)-(4*a*c))/(2*a)):8:2);
   readln;
end.

No intervalo, ele diz que precisa de um ponto-e-vírgula, mas que não funcionou