program funkcja;
    var
            a,b,c,d,p,x1,x2    : real;
    begin
            writeln('Podaj współczynniki a,b,c f.         kwadratowej');
            readln(a,b,c);
            if a=0 then
            writeln('To nie jest funkcja kwadratowa')
            else
            begin
                    d:= (b*b)-(4*a*c);
                    if d>0 then
                    begin
                            p:= sqrt(d);
                            x1:=(-b-p)/2*a;
                            x2:=(-b+p)/2*a;
                            writeln(x1,x2)
                    end
                    else
                    if d<0 then
                    writeln('Brak miejsc zerowych')

                    else
                    begin
                            x1:=(-b/2*a);
                            writeln(x1)
                    end;
            end;
    end.