Составить алгоритм решения с алгоритмического языка 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.

сорри за то что все в куче

дело в том, что цифра это знак, и буква это знак.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.