Небольшое рассуждение на тему если б не было информации

// A)

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var Count := 2;

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

   Count += 1

 until Count = 40;

 Write(f2)

end.

// B)

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var m := ReadlnInteger();

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 > m;

 Write(f2)

end.

// C)

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var S := f1;

 repeat

   S += f2;

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 >= 1000;

 Write(S)

end.

что имеем

B[o;n] и объявленный массив А[]

j=0; //переменная для текущей записи в А

for(i=0;i<n+1;i++)

{

//через булеан проверяем, является ли число простым

prost=ложь;

for (k=1;k<n/2;k++)

{

if (B[i]/k==0) then {prost=правда; break;} //если число делится на любое из чисел промежутка [1;себя/2] то оно не простое

}

if (prost==ложь) then {A[j]=B[i];} //если же простое, записываем в А

}

Доработай, прочитай как задается булеан, объяви переменные и массивы = пятерка.

На корректные и не тупые вопросы готов ответить