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

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017

var
x, y: int64;
begin 
  readln(x, y); 
  writeln(x+4*(45-y)+(89-(54-3*x))); 
end.