Вычислить по схеме Горнера

[Паскаленок]

Вычислить по схеме Горнера: y=x^10+2x^9+3x^8...+10x+11.Формат Паскаль.Очень срочно ребят,сессия горит((

[BDA]

s := 0;
for k := 1 to 11 do
  s := s * x + k;

[JUDAS]

Сообщение от BDA

s := 0;
for k := 1 to 11 do
  s := s * x + k;

В "формате" паскаль оно выглядит чуток по другому

unit FORMAT_PASCAL;
//$START format Pascal
//$announce variable in format pascal
var x : double;  //$convert to pascal format
     y : double;  //$convert to pascal format
     p : integer; //$convert to pascal format
begin
  y := 0;
  p := 10;
  //$CONTINUE format pascal
  read(' "enter x in pascal format:" ', x);
  //$IF NOT format pascal THEN format c:
  for p:=10 downto 0 do
     y:= y+(11-p)*pow(x, p); 
  writeln(' "y=x^10+2x^9+3x^8...+10x+11=" ', y); 
end.
//$END format Pascal

Автор, главное в этом коде не перепутать и не ошибиться в директивах //$
иначе формат будет не паскалевский, и препод не примет работу