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