я хотела подарить одному человеку стикеры, все сделала что дальше? Да, знаю я тупая хаха

<h1>Устройства компьютера</h1>

<p>

   Настольный компьютер обычно состоит из системного блока и подключенных к нему внешних устройств

</p>

<h1>Системный блок</h1>

<p>

   В системной блоке расположены

</p>

<ol>

   <li>Материнская плата</li>

   <li>Процессор</li>

   <li>Внутренняя память</li>

   <li>Винчестер</li>

   <li>Блок питания</li>

</ol>

<h1>

   Внешние устройства

</h1>

<p>

   Внешние устройства можно разделить на группы

</p>

<ul>

   <li>Устройство ввода - через них человек вводит информацию в компьютер

       <ul>

           <li>графический планшет</li>

           <li>микрофон</li>

           <li>сканер</li>

       </ul>

   </li>

</ul>

...

Дальше нет примера =(

const

 n=5;

type

 st = array [1..n] of integer;

var

 a:array [1..n] of st;

 b:st;

 i,j,maxp:integer;

begin

 for i:=1 to n do

   begin

     b[i]:=1;

     for j:=1 to n do

       begin    

         a[j,i]:=random(20)+1;

         b[i]:=b[i]*a[j,i];

       end;

   end;

 maxp:=0;  

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         write(a[i,j]:4);

         if i+j>n+1 then

           if a[i,j]>maxp then

             begin

               maxp:=a[i,j];

             end;

       end;

     writeln;

   end;

 writeln;

 writeln('Максимальное под побочной диагональю: ',maxp);

 for i:= 1 to n do

   write(b[i],' ');

end.