Определите способ записи и представленного алгоритма пополнить счёт

14                                                                                                                       

таблица умножения

программа телепередач

телефонный справочник

прогноз погоды

меню в столовой

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую

a=gets()

n=0

while a> 0 do

  n=n*10+a%2

  a=a/2

end

print(a)

блок схемы не умею