Таблица значений функций в excel, как записать формулу уравнений, данную на второй фотке.

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.

var i,n,x,summa,count:integer;

nechet:boolean;

begin

Writeln('Vvedite n: ');

readln(n);//получаем n

summa:=0;

count:=0;

i:=1;

if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет

while i<n do begin//пока число меньше n

if(nechet) then//если число нечентное

begin

summa:=summa+i*i*i;//прибавляем к сумме куб этого числа

end

else//если число четное

begin

summa:=summa+i*i;//прибавляем квадрат числа

end;

i:=i+1;//прибавляем число на 1

end;

writeln(' summa: ', summa);//выводим сумму

readln();

end.