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;

procedure WietovOblik();
begin
     if ( D > 0 ) then
        begin
          writeln(a,'(x',x1:5:2,')(x',x2:5:2,')');
        end;
      if ( D = 0 ) then
        begin
          writeln(a,'(x',x1:5:2,')(x',x1:5:2,')');
        end;
      if ( D < 0 ) then
        begin
          writeln(a,'(x-(',x1:5:2,'+',x1i:5:2,'i','))(x-(',x2:5:2,x2i:5:2,'i','))');
        end;
end;

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

Kvadratna( a , b , c );
writeln;
writeln('Wietov oblik:');
WietovOblik();

readln();
end.