Придумать программу и какое-нибудь решение линейного уравнения ах=в

Pascal
 var
     a,b, x : real;
 begin
 writeln ('ax=b');
 write ('a=');
 readln (a);
 write ('b=');
readln (b);
x := b/a;
writeln ('x=',x:3:3); 
end.