Информатика. Турбо Паскаль.

 [Начало] 
  | 
  v 
[Ввод x] 
  | 
  v 
[Вычислить z = x - 3] 
  | 
  v 
[Вычислить z3 = z * z * z] 
  | 
  v 
[Вычислить z6 = z3 * z3] 
  | 
  v 
[Вычислить y = 8*z6 - 7*z3 + 27] 
  | 
  v 
[Вывод y] 
  | 
  v 
[Конец] 

 program CalculateFunction; 
uses 
  Crt; { Подключение модуля для работы с консолью } 
 
var 
  x, y, z, z3, z6: Double; 
 
begin 
  ClrScr; { Очистка экрана } 
 
  { Ввод значения x } 
  Write('Введите x: '); 
  Readln(x); 
 
  { Вычисление промежуточных значений } 
  z := x - 3; 
  z3 := z * z * z; 
  z6 := z3 * z3; 
 
  { Вычисление результата } 
  y := 8 * z6 - 7 * z3 + 27; 
 
  { Вывод результата с 10 знаками после запятой } 
  Writeln('y = ', y:0:10); 
  Readln; { Ожидание ввода для просмотра результата } 
end.