Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4*a*c; x1: = (-b + sqrt(d)) div 2 * a; x2: =(-b - sqrt(d)) div 2 * a; write(x1,' ', x2); end. почему выдает ошибку?

eremitsa2011    3   05.08.2019 02:10    0