FreePascal.ru

program ddd;
var a,b,c,D,x1,x2:real;
begin
writeln('ўўҐ¤ЁвҐ a b б');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a=0 then
begin
if b=0 then
if c=0 then writeln('е-«оЎ®Ґ зЁб«®')
else writeln('­Ґв Є®а­Ґ©')
else writeln('x=',-c/b:5:5)
end ...