program Discriminant;
var a, b, c, d: real;
begin
write('a= '); read(a);
write('b= '); read(b);
write('c= '); read(c);
d:=sqr(b)-4*a*c;
if d>=0 then writeln('D= ', d)
else writeln('expresia de sub radical e negativa...');
end.
program ecGradul1;
var a,b,x:real;
begin
writeln('Rezolvarea ecuatiei ax+b=0 ');
write('introdu a, a diferit de zero, a= '); read(a);
write('b= '); read(b);
x:=-b/a;
writeln(' solutia x= ', x);
end.
