Определите в ячейке С7 второй цифра больше из чисел находящихся в ячейке А1: А6 и B2 :B5

1.1)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
for i:=1 to n do
begin
if (i mod 12=0) then write(i,' ');
end;
end.
1.2)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 12=0) then write(i,' ');
i:=i+1;
end;
end.
1.3)var n,i:integer;
begin
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 12=0)then write(i,' ');
i:=i+1;
until (i>n);
end.
2.1)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
for i:=1 to n do
beginif (i mod 6=0)then s:=s+i;
end;
writeln('Сумма равняется ',s);
end.
2.2)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
while (i<=n) do
begin
if (i mod 6=0) then s:=s+i;
i:=i+1;
end;
writeln('Сумма равняется ',s);
end.
2.3)var n,i,s:integer;
begin
s:=0;
writeln('Введите число n');
readln(n);
i:=1;
repeat
if (i mod 6=0) then s:=s+i;
i:=i+1;
until (i>n);
writeln('Сумма равняется ',s);
end.

Что бы перевести и 2-ной c.c в десятичную,необходимо разложить число по разрядам,над числом  1100,начиная с конца (т.е от знака равно) и  начиная с нулевого разряда,т.е 1100(2)=(расставляем разряды над числом) (2) =(теперь для того чтобы перевести из 2-ной в 10-ную,необходимо разложить число на множители, умножая на основание данной с.с и расставляя степень числа)1*+1*+0*+0*=(затем возводим основание с.с в степень данного числа)1*8+1*4+0*2+0*1=(в итоге перемножаем и складываем)8+4+0+0=(после сложение получилось число в 10-ной с.с) 12(10), то что (...)- это система счисления,записывается нижним индексом и без скобок,т.е старшей сестре 12 лет, если она пошла в школу с 111, то это 111(2)= ==1*4+1*2+1*1=4+2+1=7(10) ---->сестра пошла в школу с 7-ми лет, тут 7 лет - 1 кл, 8 лет - 2 кл,  9 лет - 3 кл,  10 лет - 4 кл, 11 лет - 5 кл, 12 лет - 6 кл
а младше сестре 100(2)= = =1*4+0*2+0*1=4 (10) года