równanie kwadratowe
program rownanie_kwadratowe;
var a,b,c,x1,x2,x0,delta:real;
begin
readln(a,b,c);
if a<>0 then
begin
delta:=(b*b)-(4*a*c);
if delta<0 then writeln('To rownanie nie ma rozwiazan w zbiorze liczb rzeczywistych');
if delta>0 then begin
x1:=(-b-sqrt(delta))/2*a;
x2:=(-b+sqrt(delta))/2*a;
writeln(x1:4:2);
writeln(x2:4:2);
end;
if delta=0 then begin
x0:=-b/2*a;
writeln(x0:4:2);
end;
end
else if a=0 then writeln('To nie jest rownanie kwadratowe');
readln
end.
