program costam;

uses crt;

var
 delta,a,b,c:real;
 x1,x2,pedelty:real;

begin
  //Podawanie pierwszego skladnika
  writeln('Podaj b');
  readln(b);

  writeln('Podaj a rozne od 0');
  readln(a);

  //Jeżeli a będzie równe 0 to w tym miejscu nastapi zamknięcie programu (funkcja exit();)
  if a=0 then
  begin
    writeln('Podales a rowne 0. Nastapi zamkniecie programu. Wcisnij enter.');
    readln();
    exit();
  end;

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

  delta := b*b - 4*a*c;
  writeln('Delta wynosi ', delta);

  if delta>0 then
  begin
     writeln('Dwa pierwiastki');
     pedelty := sqrt(delta);
     x1 := (-b-pedelty)/(2*a);
     x2 := (-b+pedelty)/(2*a);
     writeln('x1 = ', x1, ', x2 = ', x2);
  end;

  if delta=0 then
  begin
     writeln('Jeden pierwiastek');
     x1 := (-b)/(2*a);
     writeln('pierwiastek jest rowny ', x1);
  end;

  if delta<0 then writeln('Brak pierwiatkow');
  readln();

//Zamkniecie
end.