Решить по информатике? сделать этот алгоритм в программе паскаль 1)решить линейное уравнение ax=b.

Var
    a, b: real;

begin
    read(a, b);
    if a = 0 then
        writeln('x может принимать любое значение')
    else
        writeln('x = ', b / a);
end.

Var
  a, b, x: real;  

begin
  read(a, b);
  x := (b / a);
  write(x);
end.