Question

Составьте программу по блок-схеме

Answer 1

program raf105;

var a,b,x: real;

begin

readln(a,b);

if b<>0  

 then writeln('Корней нет')

 else if a<>0  

   then

   begin

    writeln('1 корень');

    x:= -8/a;

    writeln(x);

   end

   else writeln('мн-во корней');

end.