program Bevarde0;
var a,b,c,suma, apvalinimas, apvalinimas1 :integer;
var saknis, saknis1, x1, x2 :real;
begin
  // Diskriminanto gavimas
  WriteLn('Įrašykite a b c:');
  ReadLn(a,b,c);
  suma:= sqr(b)-4*a*c;
  WriteLn('Diskriminantas:',suma);
  saknis:= sqrt(suma);
  // x1
  x1:= (-b-saknis)/2*a;
  apvalinimas:= round(x1);
  WriteLn('x1=',apvalinimas);
  // x2
  x2:= (-b+saknis)/2*a;
  apvalinimas1:= round(x2);
  WriteLn('x2=',apvalinimas1);
  Readln;
end.