Анализ дискриминанта квадратного уравнения

program Diskr;
  var
      А,В,C,D: real;
begin
  write('Введите коэффициенты А,В,С:');
  readln(A,B,C);
  D:=SQR(B)-4*A*C;
  if D >= 0 then
    if D > 0 then
      writeln('Два вещественных корня')
    else
      writeln('Один вещественный корень')
  else
  writeln('Heт вещественных корней');
  readln
end.