Записать ** языке pascalABC программу решения линейного уравнения ax+b=0 по блок схеме

Question

Записать на языке pascalABC программу решения линейного уравнения ax+b=0 по блок схеме

Answer 1

Var a,b:real;
Begin
WriteLn('ax +b = 0');
Write('A = ');Read(A);
Write('B = ');Read(B);
Write('x = ',-b/a)
End.