He creado un programa para determinar si una ecuación cuadrática da un número 'real' como respuesta y, de ser así, cuál es. Sin embargo, esta es la primera vez que trabajo con if / else para que mi programa no compile más allá de lo demás y, después de buscar durante media hora, no estoy más cerca de descubrir por qué Code es el siguiente:

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.

En el descanso dice que necesita un punto y coma, pero eso no ha funcionado.