4# Kvadratna jednacina

program kvadratna;
uses crt;
 var
   a,b,c:integer;
   w:real;

   //w=(-b-sqrt(sqr(b)-4ac))/2a

  begin
   clrscr();
   writeln('izracunaj formulu');
   writeln('w=(-b-sqrt(sqr(b)-4ac))/2a');
   writeln('unesi promenjive');

   write('a='); readln(a);
   write('b='); readln(b);
   write('c='); readln(c);

   if (sqr(b)>4*a*c) then
     begin
        if (a<>0) then
          begin
            w:=(-b-sqrt(sqr(b)-4*a*c))/2*a;
            writeln('w=(-b-sqrt(sqr(b)-4*a*c))/2*a=',w:10:4);
          end
         else
          begin
            writeln('a nesme biti 0');
          end;
     end
   else
    begin
        writeln('4ac mora biti manje od sqr(b)');
    end;
   readln();
 end.