program f_kwadratowa;
uses crt;
var
a,b,c,d,x,p:longint;
label start;
begin
writeln('Witam w programie obliczajacym pierwiastki rownania kwadratowego');
writeln('(c) Michal Zebrowski');
writeln;
writeln;
start:
writeln('podaj a');
readln(a);
if a=0 then writeln('a nie moze miec wartosci 0');
if a=0 then goto start;

writeln('podaj b');
readln(b);
writeln('podaj c');
readln(c);


d:=sqr(b)-4*a*c;
writeln('delta rowna sie ',d);




if d<0 then writeln('nie ma pierwiastkow rozwiazania');
if d=0 then
begin
writeln('Miejsce zerowe to ',-b/2*a);
end;
if d>=0 then
begin
writeln('sa dwa miejsca zerowe ',(-b-(sqrt(d)))/(2*a), ' i ' ,(-b+(sqrt(d)))/(2*a));

end;
writeln('jezeli chcesz obliczyc jeszcze raz nacisnij 0');
readln(p);

if p=0 then goto start;

end.