помогите плиз с 9 и10 заданием дам 30 пиров

9.
a =2823   b=0
пока a gt; b делать
b =(a mod 100)*10
a =(a div 10)*10-b

a =2823   b=0 

2823 gt; 0 (да)
b = 230   a = 2590

2590 gt; 230 (да)
b = 900   a = 1690

1690 gt; 900 (да)
b = 900   a = 790

790gt;900 (нет - цикл не запуститься)

Ответ: 3 (a = 790   b = 900)

10.
for n:=1 to 100 do
a[n]:=(n-80)*(n-80);
for n:=1 to 100 do
b[101-n]:=a[n];

Осмотрим отдельно как заполняются массивы:

1)
for n:=1 to 100 doa[n]:=(n-80)*(n-80);
Т.е. 1-ый элемент будет равен a[1] = (1-80)*(1-80) = 6241, 2-ой a[2] = (2-80)*(2-80) = 6084 и т.д. Как следует 1-ый элемент массива A будет наибольшим, а заключительный наименьшим.

2)
for n:=1 to 100 dob[101-n]:=a[n];
Т.е. заключительный элемент массива B будет равен первому элементу массива A (b[100] = a[1]). Следовательно заключительный элемент массива B будет наибольшим, а 1-ый  наименьшим.

Ответ: 1 (B[100])

9 задание 3) 790___900;
10 задание 1) b[100];