uses crt;
var
 a,b,c,d,k1,k2:real;
begin
 clrscr;
 write('Zadaj a >> ');readln(a);
 write('Zadaj b >> ');readln(b);
 write('Zadaj c >> ');readln(c);
 d:=b*b-4*a*c;
 if d<0 then writeln('Nema realny koren !')
        else begin
              k1:=(-b+sqrt(d))/2;
              k2:=(-b-sqrt(d))/2;
              writeln('Koren 1 je ',k1,' .');
              writeln('Koren 2 je ',k2,' .');
             end;
readln;

end.