Составить программу, выходящую на экран значение вещественной переменной х, равное значению выражения а+b/a*b; a и b - целочисленные переменные, их значения вводятся с клавиатуры. ребят прошу решите срочно надо! а то меня сожрут!

var A,B: Integer;var x :real;beginwriteln('введите число А');readln(A);writeln ('введите число В');readln(B);x:=(A+B)/A*B;Write('X= ',x );end.