Выберите правильное описание типа данных "массив"

Выберите правильное описание массива А сотоящего из нескольких пременных целого типа

Запишите процедуру, которая позволяет осуществлять вывод данных в столбик.

Какой получится вывод после выполнения данной программы, при этом каждый элемент равен своему индексу?
var A:array [1..10] of integer;
i:byte;
S:integer;
begin
for i:=1 to 10 do read (A[i]);
S:=0;
for i:=1 to 10 do
if i mod 3 = 0
tnen S:=S+A[i];
write (`S=`, S)
end.

Какой получится вывод после выполнения данной программы, при этом каждый элемент равен своему индексу?
var A:array [1..25] of integer;
i:byte;
P:integer;
begin
for i:=1 to 25 do read (A[i]);
P:=1;
for i:=1 to 25 do
if (i mod 7 > 0) and (i < 8)
tnen P:P*A[i];
write (`P=`, P)
end.

Какок самое большое число типа byte?