Підготувати матеріал Україна очима дітей ( ів)

Прочитав текст, можно легко понять, что проще всего "зацепиться" за его фрагмент "я учился на 12 и 11". Кроме того, нигде не встречается цифр, больших двойки, следовательно основание системы р может быть 3 и более.
Допустим, что система оценок была пятибалльной.
Пусть p=3, тогда 12(3)=3+2=5, 11(3)=4 и это похоже на реальные числа.
При р=4 получаем 12(4)=6 и это уже нарушает наше допущение о пятибалльной системе.
Но посмотрим, что даст предположение р=3.
12(3) лет - это 5.
122 года - это 3²+2×3+2 = 17 лет - нормальный возраст для поступления в вуз.
21(3) год - это 3×2+1 = 7 лет - вполне допустимый срок для начала преподавания.
220(3) лет = 2×3²+2×3 = 24 года - путешествие было не коротким...
10011(3) лет = 3⁴+3+1 = 85 лет - вполне почтенный возраст.

{Из массива Р, содержащего 10 элементов, сформировать массив Н по правилу:Н(к)=I/P(к), (к -чётные), Н(к)=Р(к)+к, (к - нечётные)В массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов.В массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.}var P:array[1..10] of integer; H:array[1..10] of real;i:integer;index1, index2:integer;
begin

  writeln('Введите элементы массива P: ');  for i:=1 to 10 do  begin  readln(P[i]);  end; writeln; writeln('Массив P: ');  for i:=1 to 10 do  begin  write(' '+P[i]+' ');  end;
  writeln;  writeln('Массив H: ');   for i:=1 to 10 do  begin   if (i mod 2 = 0) then  begin  H[i]:=1/P[i];  end;   if (i mod 2 <> 0) then  begin  H[i]:=P[i]+i;  end;   end;  for i:=1 to 10 do  begin  write(' '+H[i]+' ');  end;   writeln; writeln;  writeln('Нечётным элементам присваиваем значения квадратов их индексов');  for i:=1 to 10 do  begin  if (i mod 2 <> 0) then  P[i]:=i*i;  end;   for i:=1 to 10 do  begin  if (i mod 2 <> 0) then  H[i]:=i*i;  end;  writeln('Массив P: ');  for i:=1 to 10 do  begin  write(' '+P[i]+' ');  end;
  writeln;  writeln('Массив H: ');  for i:=1 to 10 do  begin  write(' '+H[i]+' ');  end;   writeln; writeln; writeln('Напечатать индекс последнего из элементов, равных 0'); for i:=1 to 10 do  begin  if (P[i] = 0) then  index1:=i;  end;  writeln;  writeln('Индекс для массива P: '+index1);    for i:=1 to 10 do  begin  if (H[i] = 0) then  index2:=i;  end;  writeln;  writeln('Индекс для массива H: '+index2);  end.