Помогите с информатикой ,8кл.

Question

Помогите с информатикой ,8кл.

---

Answer 1

Program ur;
vara,b,c,D,x1,x2:real;
begin  writeln('a b c');  raedln(a);  readln(b);  readln(c);  D:=(sqr(b))-4*a*c;  if D>=0 then  begin  x1:=(-b+sqrt(D))/(2*a);  x2:=(-b-sqrt(D))/(2*a);  writeln('x1=',x1,'x2',x2)  end;    end.