Получить таблицу значений функции n(p) = -p* log2p при изменении р от 0,01 до 0,99 с шагом 0,01. Задание выполняется в Excel

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал