{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fswiss\fcharset204{\*\fname Arial;}Arial CYR;}} {\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 program kvadrat;\par var a,b,c,d,x1,x2: real;\par begin\par writeln ('\'e2\'e2\'e5\'e4\'e8\'f2\'e5 \'ea\'ee\'fd\'f4\'f4\'e8\'f6\'e8\'e5\'ed\'f2\'fb \'ea\'e2\'e0\'e4\'f0\'e0\'f2\'ed\'ee\'e3\'ee \'f3\'f0\'e0\'e2\'ed\'e5\'ed\'e8\'ff');\par readln (a,b,c);\par d:=b*b-4*a*c;\par if d<0 then wrileln ('\'ca\'ee\'f0\'ed\'e5\'e9 \'ed\'e5\'f2') else\par begin\par x1:=(-b+sqrt(d))/2*a;\par x2:=(-b-sqrt(d))/2*a;\par writeln ('x1=', x1, 'x2=', x2 )\par end\par end.\par }