ПОМОГИТЕ,ДАЮ 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.