Для підготовки до участі в чемпіонаті з легкої атлетики тренер поставив перед спортсменом завдання: перший тиждень пробігати дистанцію, довжина якої умовно дорівнює одиниці, а кожного наступного тижня збільшувати дистанцію на довжину, яка дорівнює початковій дистанції, поділеній на номер поточного тижня. Таким чином, математична модель бігу спортсмена така: 1, 1 + 1/2, 1 + 1/2 + 1/3, 1 + 1/2 + 1/3 + 1/4 + ... Розробіть алгоритм і програму визначення номера тижня, коли дистанція буде більшою за 1, 91.

Program p1;
const n=10;
var a:array [1..n] of real;
    i:byte; 
   max:real; 
   nmax:byte;
begin
 //начало цикла ввода 
For i:=1 to n do 
//ввод    
Readln(a[i]) 
//берём за максимальный 1ый элемент
 max:=a[1]; 
 //берём количество = 1
 nmax:=1; /
/начало цикла проверки 
For i:= 2 to n do 
 if a[i]> max then    
    begin       
       max:=a[i]; 
       nmax:=1;     
   end else
                if a[i]= max then       
                         nmax:=nmax+1; 
//вывод 
Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax);  end.