ПАСКАЛЬ. Напишите программку для решения квадратного уравнения

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел a,b,c:');
  var d:=b*b-4*a*c;
  if dlt;0 then Writeln('Нет реальных корней')
  else
    if d=0 then Writeln('Единственный корень ',-b/2/a)
    else begin
      d:=Sqrt(d);
      Writeln('Два корня: ',(-b-d)/2/a,' ',(-b+d)/2/a)
      end
end.

Пример
Введите через пробел a,b,c: 2.6 -3.1 0.15
Два корня: 0.0505284246495728 1.14177926765812

Program kv;
var
   a,b,c,d:real;
begin
   write('Введите a,b и c: ');
   read(a,b,c);
   d:=sqr(b)-4*a*c;
   if(dlt;0) then writeln('Корней нет')
      else if(d=0) then writeln('Корень равен ',(-b/(2*a)))
         else writeln('Первый корень равен ',((-b+sqrt(d))/(2*a)),' 2-ой корень равен ',((-b-sqrt(d))/(2*a)));
end.