Задачи ЕГЭ по информатике. Прошу посодействовать с выполнением и желательно объяснить

Задачи ЕГЭ по информатике. Прошу посодействовать с выполнением и желанно разъяснить .
(1)При каком наибольшем введенном числе d после исполнения программки будет написано 150?
var n, s, d: integer;
begin
readln(d);
n := 3; s := 38;
while s lt;= 1200 do begin
s := s + d; n := n + 7
end;
write(n)
end.
(2)В программке описан одномерный целочисленный массив A, в представленном фрагменте программки
обрабатываются элементы массива с индексами от 1 до 24.
n:=24;
A[1]:=4;
for i:= 2 to n do begin
A[i] := 4*A[i1] mod 10;
end;
Чему будет равен элемент массива A[24] после исполнения данной программы?
(3)9)В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен записанный на различных языках программирования кусок одной и той же программки, обрабатывающей данный массив:
s:=0;
n:=10;
for i:=0 to n-1 do begin
s:=s+A[i]-A[i+1]
end;
В начале выполнения этого фрагмента в массиве находились трёхзначные натуральные числа. Какое наибольшее значение может иметь переменная s после исполненья данной программки?