Program n1; var x,y,z: real; procedure kvur(a,b,c: real); var D: real; begin D:=b*b-4*a*c; writeln('x1=',(-b+sqrt(D))/2*a); writeln('x2=',(-b-sqrt(D))/2*a); end; begin write('a='); readln(x); write('b='); readln(y); write('c='); readln(z); kvur(x,y,z); end.
Answers & Comments
Verified answer
Program n1;var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.