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.
