Помогите пожалуйста срочно составить программу по решению линейного уравнения
ax+b=0

program chy;

Var x,a,b :real;

begin

write('a=');

read (a);

write('b=');

read(b);

if a<>0 then x:=-b/a;

Writeln ('x= ',x);

end.