kvadratna

var a, b, c:integer;
var x1,x2,x1i,x2i,D:real;

procedure Kvadratna( a , b , c : integer );
begin
  D:=sqr(b)-4*a*c;
  if ( D > 0 ) then
      begin
          x1 := (-b + sqrt(D))/2*a ;
          x2 := (-b - sqrt(D))/2*a ;
          writeln('Resenja kvadratne jednacine su:');
          writeln('x1 = ' , x1:7:2 );
          writeln('x2 = ' , x2:7:2 );
      end;
  if ( D = 0 ) then
      begin
        x1 := -b/2*a ;
        writeln('Postoji samo jedno resenje jednacine , x = ' , x1:7:2 );
      end;
  if ( D < 0 ) then
       begin
         x1 := -b/2*a;
         x2 := -b/2*a;
         x1i := sqrt(-D)/2*a;
         x2i := -sqrt(-D)/2*a;
         writeln('Resenja jednacine su kompleksna');
         writeln('x1 realni = ' , x1:7:2 , ' imaginarni = ' , x1i:7:2 , 'i' );
         writeln('x2 realni = ' , x2:7:2 , ' imaginarni = ' , x2i:7:2 , 'i' );
       end;
end;


begin
  writeln('Unesite a');
  readln(a);
  writeln('Unesite b');
  readln(b);
  writeln('Unesite c');
  readln(c);

  Kvadratna( a , b , c );

  readln();
end.