Вычислить по схеме горнера: y=x^10+2x^9 ++10x+11

Var
  x,y:real;
  i:integer;
begin
  y:=0;
  Write('x= ');
  Read(x);
  for i:=1 to 11 do y:=i+y*x;
  Writeln('Y= ',y)
end.

Пример
x=3.6
Y= 700939.22164521

1) Считаем среднее значение от 100 тетрадей на пятерых человек:
100:5=40 (по 40 тетрадей приходится на каждого)
2) Предполагаем, что значение Коли верно, тогда:
Вася: 52-20=32
Юра: 43-32=11
Саша: 34-11=23
Серёжа: 30-23=7
3) Теперь считаем общее колличество получившихся тетрадей:
20+32+11+23+7=93
Напоминаю, что должно получится 100, следовательно 7 тетрадей не хватает. Именно их мы и должны прибавить. Осталось только понять куда.
4) Начнём с начала. Прибавляем эти 7 тетрадей к Коле:
20+7=27 - Коля. Тогда:
Чтобы узнать, сколько тетрадей у Васи, вычтем из 52(общее кол-во тетрадей Коли и Васи) кол-во тетрадей Коли:
52-27=25 - Вася.
Так же считаем и остальных. Получаем:
Юра: 43-25=18 тетрадей
Саша: 34-18= 16 тетрадей
Серёжа: 30- 16= 14 тетрадей

ОТВЕТ: Коля - 27, Вася - 25, Юра - 18, Саша - 16, Серёжа - 14 тетрадей =)

Microsoft QBasic 1.0

CLS
x = 0
DO WHILE x <= 2.1001
   PRINT x, COS(x)
   x = x + .1
LOOP

Результат
 0             1
 .1            .9950042
 .2            .9800666
 .3            .9553365
 .4            .921061
 .5            .8775826
 .6            .8253356
 .7            .7648422
 .8000001      .6967067
 .9000001      .6216099
 1             .5403022
 1.1           .453596
 1.2           .3623576
 1.3           .2674986
 1.4           .1699669
 1.5           7.073697E-02
 1.6          -2.919978E-02
 1.7          -.1288448
 1.8          -.2272024
 1.9          -.3232899
 2            -.4161471
 2.1          -.5048462