Вводятся строки. определить самую длинную строку и вывести её номер на экран.без массива, интернета.pascal abc. ​

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.

На початку ХХ ст. економіка Японії розвивалася швидкими тем -пами. Переважаючою галуззю промисловості залишалася текстильна,  

але відбувалося також досить швидке зростання металургії, машино-будування, суднобудування, електротехнічної та гірничодобувної про -мисловості. Протягом 1900—1913 рр. обсяг промислового виробництва  

в Японії збільшився на 181 %, тоді як у США — на 85 %, у Німеччи-ні — на 54 %, у Франції — на 51 %, у Великій Британії — на 25 %.  

Отже, за темпами промислового розвитку країна суттєво випереджала  

всі провідні країни світу.  

Особливістю економіки країни був високий рівень протекціо-нізму: держава субсидувала розвиток залізниць, цілих галузей про-мисловості (особливо воєнної) тощо. Ще однією її особливістю було  

привілейоване становище деяких старих торговельно-банківських  

об’єднань — «Міцубісі», «Міцуї» та ін.

Объяснение:

1.к началу 3 тысячелетия до нашей эры. 2.в ассирии первое железо стали добывать и поэтому ассирия была великой державой.  открытие железа к изменению орудий труда человека. с железных орудий можно было рубить лес, распахивать твёрдые почвы, копать глубокие колодцы.  cлабость ассирии в том, что покорённые ею народы не могли мириться со своим положением и поднялись на борьбу.  3  прихода  ариев  в  индию  ранее 1500 года до н.э.завоеватели переняли у них приемы земледелия, а те стали говорить на языке ариев. на севере индии образовались небольшие государства во главе с вождями ариев.  4  хаммурапи — первый правитель вавилонской династии, от которого сохранились царские надписи.  п равил приблизительно в 1793 — 1750 годах до н. э. , из i