program riboa; uses crt;
var
    a,b,c,x1,x2,delta:real;
begin
    clrscr;
    writeln('A quadratic equation solver. Enter the values please ');
    writeln;writeln;
    writeln('Enter A: ');
    readln(a);
    while a=0 do
    begin
         writeln('A cannot be 0');
         writeln('Enter A:');
         readln(a);
    end;
    writeln('Enter B:');
    readln(b);
    writeln('Enter C:');
    readln(c);
    delta:=sqr(b)-(4*a*c);
    if delta<0 then
             writeln('No Solution');
    if delta=0 then
    begin
        x1 := ( (-b)+sqrt(delta) ) / (2*a);
        writeln('There is only ONE solution ',x1:2:2);
    end;
    if delta>0 then
    begin
         x1 := ( (-b)+sqrt(delta) ) / (2*a);
         x2 := ( (-b)-sqrt(delta) ) / (2*a);
         writeln('There are TWO solutions : X1 = ',x1:2:2);
         writeln('                          X2 = ',x2:2:2);
    end;
readln;
end.