Выбрать правильный ответ

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа