Я создал программу, чтобы определить, дает ли квадратное уравнение «реальное» число в качестве ответа, и если да, то что это такое. Тем не менее, я впервые работаю с if / else, так что моя программа не будет компилироваться после else, и после полчаса поиска я не приблизился к выяснению, почему Code выглядит следующим образом:

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.

В перерыве он говорит, что ему нужна точка с запятой, но это не сработало