Нахождение корня квадратного уравнения

var a,c,d,r,x1,x2,x : Integer;
b : Real;
 
begin
WriteLn('Введите числа в уравнение вида: ах^2+вх^2+с');
readln(a,b,c);
'возведение числа в степень'
r:= sqr(b)-4*a*c;
if r>0 then writeln('Дискриминат имеет 2 решения'); Writeln(x1,x2);
if r<0 then writeln('Дискриминат решений не имеет'); 
if r=0 then writeln('Дискриминат имеет 1 решение'); Writeln(x);
x1:= -b+sqrt(r)/2*a;
x2:= -b-sqrt(r)/2*a;
x:=-b/2*a;
Writeln('Спасибо за внимание!!!');
end.

var a,c,b:integer;
    d,x1,x2,x:real;
begin
WriteLn('Введите числа в уравнение вида: ах^2+вх^2+с');
readln(a,b,c);
d:= sqr(b)-4*a*c;
x1:= -b+sqrt(d)/2*a;
x2:= -b-sqrt(d)/2*a;
x:=-b/2*a;
if d>0 then 
   begin 
   writeln('Дискриминат имеет 2 решения'); 
   Writeln(x1,' ',x2)
   end
    else
    if d=0 then
       begin
       writeln('Дискриминат имеет 1 решение'); 
       Writeln(x)
       end
         else writeln('Дискриминат решений не имеет'); 
 
Writeln('Спасибо за внимание!!!');
end.

var a,c,b:integer;
    d,x1,x2,x:real;
begin
WriteLn('Введите числа в уравнение вида: ах^2+вх^2+с');
readln(a,b,c);
d:= sqr(b)-4*a*c;
if d>0 then 
   begin 
   writeln('Дискриминат имеет 2 решения');
   x1:= -b+sqrt(d)/2*a;
   x2:= -b-sqrt(d)/2*a;
   Writeln(x1,' ',x2)
   end
    else
    if d=0 then
       begin
       writeln('Дискриминат имеет 1 решение');
       x:=-b/2*a;
       Writeln(x)
       end
         else writeln('Дискриминат решений не имеет'); 
 
Writeln('Спасибо за внимание!!!');
end.