Вычислить выражение s=3x+29-10x. если сумма больше 25, то вывести ее на экран, в противном случае вывести на экран текст: " ? ".

//PascalABC.NET 3.2

begin
  var x := ReadlnReal('x =');
  var s := 3*x + 29 - 10*x;
  if s > 25 then write(s)
  else write('?');
end.