(кратко) описать быт и занятия жителей Древней Греции, объяснить предпосылки расцвета и причины гибели Критского царства ответ должен быть максимально точным

Насколько я помню:

До крещения: устное народное творчество(сказки, басни,. былины,повести древнерусские (летописи,житие,сказание)).

После крещения: "Повесть временных лет",свод летописей Нестора","Завет Ярослава Мудрого своим сыновьям" ,"Слово о полку Игореве",свод законов "Русская Правда".

Не стоит забывать об археологических раскопках и находках, например, погребения. Обряды отличали славян дохристиаской и крещенной Руси.

Также берестяные грамоты, которыми пользовались наши далёкие предки. Описывали и хозяйство, и семейную жизнь, даже городские (сельские) новости.

uses crt; type fil=text; var f1:fil; a,b,c:string; i,w,n,y:integer; procedure wwod; begin assign(f1,'t1.dat'); rewrite(f1); writeln('Введите кол-во строк в файле:'); readln(y); for i:= 1 to y do    begin    writeln('Введите ',i,' строку');  {}    readln(a);    writeln(f1,a);    end; close(f1); end; procedure prosm; begin assign(f1,'t1.dat'); reset(f1); writeln('Содержание текстового файла:'); while not eof(f1) do      begin      a:='';      readln(f1,a);      writeln(a)      end; close(f1); end; procedure naxod; var max:string; i,i1:integer; begin assign(f1,'t1.dat'); reset(f1); max:=''; i:=1;i1:=0; while not eof(f1) do      begin      a:='';      readln(f1,a);      if length(a)> length(max) then begin                           max:=a;                           i1:=i;                                 end;     inc(i);     end; writeln('Самая длинная строка: ',max,' (',i1,')'); reset(f1); i:=1; while not eof(f1) do      begin      a:='';      readln(f1,a);      if (length(max)=length(a)) and (i<>i1)         then  writeln('Еше одна Самая длинная строка: ',max,' (',i,')');      inc(i);      end; close(f1);{} end; begin w:=0;      {обнуляем переменную для выбора меню} while w<>4 do begin   {пока не равно 4 }      writeln('           Меню программы');      writeln('1-Создание текстового файла');      writeln('2-Просмотр текстового файла');      writeln('3-Нахождение длинного строки');      writeln('4-Выход из программы');      write('             Ваш выбор -> ');      readln(w);      case w of           1:wwod;           2:prosm;           3:naxod;           end;      writeln      end; end.