program pierwiastek;
uses crt;
var delta,a,b,c,x0,x1,x2:real;
begin
clrscr;
writeln('podaj wartosc a,b,c');
readln(a,b,c);
delta:=(sqr(b))-(4*a*c);
if(delta>0) then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
writeln('x1=',x1:10:5);
writeln('x2=',x2:10:5);
readln;
end;
if(delta=0) then
begin
x1:=-b/(2*a);
writeln('x0=',x0:10:5);
readln;
end;
if(delta<0) then
begin
writeln('brak pierwiastkow rzeczywistych');
readln;
exit
end;
end.