Создайте программу для решения следующих задач (4.5.7) или (4.5.6) язык Turbo Pascal

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

вроде бы 100*100=10000 бит=1250 байта

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

1) 6 (худший вариант - 5+1)

2) 4 (худший вариант - 3+1)

3) 7 (худший вариант - 5+2)

4) 5 (худший вариант - 3+2)