Условный оператор. Определить количество корней уравнения

var
  a: real;
 
begin
  read(a);
  if a + 1 > 0 then writeln('В уравнение x^2=', a + 1, ' 2 корня');
  if a + 1 = 0 then writeln('В уравнение x^2=', a + 1, ' 1 корень');
  if a + 1 < 0 then writeln('В уравнение x^2=', a + 1, ' действительных корней нет');
end.

uses crt;
var
a: real;
begin
writeln('Введите a');
readln(a);
if a + 1 > 0 then writeln('В уравнение x^2=', a + 1, ' 2 корня ');
if a + 1 = 0 then writeln('В уравнение x^2=', a + 1, ' 1 корень');
if a + 1 < 0 then writeln('В уравнение x^2=', a + 1, ' действительных корней нет');
end.

var a,b,c: real;
    x1,x2,D: real;
begin
  readln(a,b,c);
  D := b*b - 4*a*c;
  if D<0 then
    writeln('Корней нет')
  else if D=0 then begin
    x1 := -b/2/a;
    writeln('x1=x2=',x1);
  end
  else begin
    x1 := (-b-sqrt(D))/2/a;
    x2 := (-b+sqrt(D))/2/a;
    writeln('x1=',x1,' x2=',x2);
  end;
end.

var
  a: real;
 
begin
  writeln('Введите a');
  readln(a);
  if a + 1 > 0 then begin writeln('В уравнение x^2=', a + 1, ' 2 корня: '); writeln(-sqrt(a + 1)); writeln(sqrt(a + 1)); end;
  if a + 1 = 0 then begin writeln('В уравнение x^2=', a + 1, ' 1 корень'); writeln(sqrt(a + 1)); end;
  if a + 1 < 0 then writeln('В уравнение x^2=', a + 1, ' действительных корней нет');
end.