СРОЧНО ПОМОГИТЕ ПЛИЗ что должнобыть вместо надписи тело цикла и какой ответ?

клавиатура, джойстик, сканер, принтер.
монитор, графопостроитель, принтер, мышь.
жесткий диск, flash-память, компакт-диск, процессор.
системный блок, центральный процессор, оперативная память, жесткий диск, блок питания.
системный блок, клавиатура, мышь, монитор, акустические колонки.
видеокарта, карта расширения, звуковая карта, сетевая карта.
цветной принтер, лазерный принтер, матричный принтер, струйный принтер.

информацией

1. Сколько раз выполнится тело цикла и какие значения будут

присвоены переменной I?

I:=1;

While I<=10 do

I:=I+1;

2. Что появится на экране в результате работы этих программ?

а) Program primer1;

Var X:real; I:integer;

Begin I:=1; X:=0;

While I<=5 do begin

X:=X/2+I*I;

I:=I+1;

End;

Write(X);

End.

b) Program primer2;

Var X,I,N:integer;

Begin

Write ('введите число');

Readln(X);

I:=1;

While I<=X do begin

If X mod I=0 then N:=N+1;

I:=I+1;

End;

Write(N,I);

End.

(если X=12)

2)В операторе while A do B, на месте B ставится?
3)Сколько раз выполнится цикл
A:=1;
while A<=5 do
A:=A+1;
4)В операторе while A do B; на месте A ставится?
5)Какой оператор в цикле должен присутствовать для правильного его завершения?
6) В какой из циклических структур операторы тела цикла не надо заключать в "операторные скобки"?
7)После выполнения операторов
K:=0;S:=0;
while K>10 do
S:=S+K;
K:=K+2;
Ps. Это все паскаль.

громкий шум!!!!
я знаю что вопрос не по теме но пж, на вас надежда!!!!