40 найти значение выражения x+4(45-y)+(89-(54-3x)); х,у вводятся с клавиатуры.

Program P1;
var x, y, sum: real;

begin
   write('x= '); readln(x);
   write('y= '); readln(y);
   sum:=x+4*(45-y)+(89-(54-3*x));
   writeln('Значение выражения равно ', sum);
readln;
end.