Придумати задачу з розгалуженням яку можна описати в скретч

Program: LinearEquation;

var a,b: real;

begin

 writeln('Ця програма розв'язу лнйне рвняння ax=b');

 write('a=');

 readln(a);

 writeln('b=');

 readln(b);

 if a=0 then writeln('x=',b/a)

 else if b=0 then writeln('Будь-яке дйсне число задовльня цьому рвнянню')

 else writeln('Рвняння не ма дйсних розв'язкв');

END.