Дано вещественное число а и целое число n (> o) используя один цикл найти сумму. 1+ а+ а ( в кд.) + а (в кубе) + . . + а ( в n)

program dl9_meru3;

var a,s: real; n,i: integer

begin

writeln ('vvedit a i n(> 0)');

readln (a,n);

s: =0;  

a: =a+1;  

for i: =2 to n do

begin 

s: =s+a;

a: =a*a;

end;

writeln ('suma=',s);

readln

end. 

текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно

30 символов = 30 байт или  30 * 8 = 240 бит