Написать программу, которая решает уравнение ax+b = 0 (паскаль) ,

var a,b,x:real;
begin
writeln ('ax+b=0');
writeln ('Введите a,b:');
readln (a,b);
x:=(-b/a);
writeln ('x = ',x);
end.