Составить алгоритм решения задачи с помощью алгоритмического языка…

program qq; uses crt; var a,x,b: real; begincrlscr; writeln ('введите а и b '); readn (a,b); if a=0 thenif b=0 then writeln ('x любое число') else writeln ('решений нет ') else beginx: =(-b/a); writeln (x); end; readlnend. Сорри за то что все в куче