program RownKwadr;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A, B, C, Wynik :Integer;

begin
  Writeln('Rownanie kwadratowe');
  Writeln('Podaj A: ');
  Readln(A);
  Writeln('Podaj B: ');
  Readln(B);
  Writeln('Podaj C: ');
  Readln(C);

  Writeln('Rownanie:');
  Writeln('Wynik ', '(', B, '*', B, ')', '-', '4', '*', '(', A,'*', C, ')', '=', (B*B)-4*(A*C));
  Wynik := (B*B)-4*(A*C);

  if (wynik > 0) and (Wynik <> 1) then begin
    Writeln;
    Writeln('Obliczanie x1:');
    Writeln('Wynik to ', ((-B)+sqrt(Wynik))/(2*A):1:2);
    Writeln('Obliczanie x2:');
    Writeln('Wynik to ', ((-B)-sqrt(Wynik))/(2*A):1:2);
  end else
    if Wynik = 1 then
      Writeln('Wynik to: ', -B/(2*A):1:2);

    if Wynik < 0 then
      Writeln('Delta ujemna. Nie mozna policzyc x1 i x2. Nacisnij ENTER aby wyjsc');

  readln;
end.