Дано арифметическое выражение...

Дано арифметическое выражение Y=(b – x)3+b2. Найти значение Y при любых значениях b и х. Вывести на экран введенные b и х, и результат Y в одной строке
Y=… b=… х=…

 

program vir;
var
 y,b,x:real;
Begin
  writeln('Введите переменные b и х для уравнения y=(b-x)3+b2');
  readln(b,x);
  y:=(b-x)*3+b*2;
  writeln('Y= ',y:6:3,'  b= ',b:6:3,'  x= ',6:3);
  readln;
End.