Паскаль. создать программу для нахождения суммы ряда: s=x^0+x^2+x^4+x^6++x^10

//PascalABC.NET
var
s,x:int64;
i:integer;
begin
Readln(x);
For i:=0 to 5 do s:=s+Round(Power(x,i*2));
Writeln(s);
end.

DIM m AS INTEGER
CLS
INPUT "m=", m
DIM a(1 TO m, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO m
   FOR j = 1 TO m
      a(i, j) = 50 * RND - 25
      PRINT USING ""; a(i, j);
   NEXT j
   PRINT
NEXT i
DIM P AS DOUBLE, S AS INTEGER
DIM B(1 TO m) AS DOUBLE
P = 1
FOR i = 1 TO m
   S = 0
   FOR j = 1 TO m
      IF a(i, j) > 0 THEN P = P * a(i, j)
      S = S + a(i, j)
   NEXT j
   B(i) = S / m
NEXT i
PRINT "P="; P
PRINT "Vector"
FOR i = 1 TO m
   PRINT USING "###."; B(i)
NEXT i

Пример
m=5
   3 -12  -2  -3  -4
  11 -13  21  20  14
  21   5  18 -20  -1
  -3  24 -24 -19   8
 -14 -24  -7  -2  -3
P= 70413235200
Vector
 -3.60000
 10.60000
  4.60000
 -2.80000
-10.00000

Не совсем чётко сформулировано задание. Но попробую хоть в чём-то хотя можно ответить только на вопрос  типа "Сравнить размеры этих файлов".

 

Во втором файле по сравнению с первым

стерео *2

16 бит *2

48000  *6    (после * указываю во сколько раз больше, чем в 1 случае)

Таким образом, объём второго файла будет в 2*2*6=24раза больше, чем первого.

Ну где-то так...

 

Да, примерный объём первого файла за 10сек оценивается просто

10*1*8000=80 000 байт = 78Кбайт

Ну а второго

80000*24=1920000байт = 1875Кб=1.8М