ПОМОГИТЕ,ДАЮ 40 БАЛЛОВ Найти значение выражения x+4(45-y)+(89-(54-3x)); х,у вводятся с...

Question

ПОМОГИТЕ,ДАЮ 40 БАЛЛОВ
Найти значение выражения
x+4(45-y)+(89-(54-3x)); х,у вводятся с клавиатуры.

Answer 1

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.

Comments

СПАСИБО ОГРОМНОЕ