Предмет организации. сделать вторую таблицу, нужно расписать подробно как мы получили числа в таблице, по показателям эффективности использования основных средств, а также заполнить наличие на конец отчетного периода.

Еще с древнейших времен японцы имели свою своеобразную религию — синтоизм (синто — по-японски означает «путь богов»). Верующие этой религии считают, что своего духа или бога имеет все на свете: горы, растения, явления природы, каждая вещь. Главным богом синтоизма считалась богиня Солнца, от нее ведет свое происхождение императорский род. Ее изображение в виде красного диска Солнца есть и на современном флаге Японии.
В Раннем средневековье в Японии появился буддизм. С тех пор японцы являются приверженцами сразу двух религий. С появлением буддизма в Японии стало строиться много красивых храмов. Японские скульпторы создали множество изображений Будды. Некоторые из статуй достигали высоты более 20 метров.

program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
   Writeln ('Введите строку:'); Readln(s);
   i:=1; ns:=1; otv:=''; s:=s+' ';
   while i<=Length(s) do
   begin
      while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
      ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
      m:=Length(slovo) div 2; {половина длины слова}
      if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
         {если слово имеет четную длину}
          then otv:= otv+slovo+ ','; {добавляем слово к ответу}
      while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
      ns:=i; {начало следующего слова}
   end;
   Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
   Writeln(otv);
   Readln
end.