Составить алгоритм решения с алгоритмического языка pascal и с блок-схем, используя конструкцию алгоритма с ветвлением. написать алгоритм решения , которая решает уравнение ax + b = 0 относительно x для любых чисел a и b, введенных с клавиатуры. все числа считаются действительными.
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче