Написать программу в Паскале для решения уравнения B/x + C=0

var x,b,c : real;  begin writeln('Введите B:');readln(b);writeln('Введите C:');readln(c);x:=-b/c;writeln('x=',x);end.