program kifejezes;
var x: real;
begin   
   x := - 1 + 2 / 4 * 5 - 6 mod 4 + 7 div 3;
end.