TODO

program Zadacha8;
var a,b,c:real;
d,x1,x2:real;

procedure Deskrimenant;
begin
d:=(b*b)-4*a*c;
end;
procedure X;
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
end;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
Deskrimenant;
X;
writeln('x1=',x1);
writeln('x2=',x2);

end.