program p_1; var x: real; beginx:=8217+2138*(6906-6841)/5-7064;writeln (x);end.
Вот так она выглядит на паскале.