Склади звукову модель слова рясно

вычислить tgA,если cosA=-1/2 и П<A<П.Помогите плиз

1)Изложите алгоритм 2)задумку 3) пояснительная записка :)( Нужно все оень и очень развернуто, алгоритм- прямо по строчкам что ,как и зачем)

____

var
  a: array[1..10, 1..10]of integer;
  i, j, min, max: integer;

begin
  randomize();
  min := random(500);
  max := min + random(500);
  write('[', min, ', ', max, ']');
  
  for i := 1 to 10 do 
  begin
    writeln();
    for j := 1 to 10 do 
    begin
      a[i, j] := min + random(max - min);
      write(a[i, j]:5);
    end;
  end;
  
  writeln();
  for i := 3 to 8 do 
  begin
    writeln();
    for j := 3 to 8 do 
      write(a[i, j]:5);
  end;
end.

1)Какие преобразования энергии происходят в электрической плитке?  2) Как можно изменить магнитные полюса катушки с током? 3) Где одновременно можно обнаружить магнитные и электрические поля?

Обязательно отмечу лучшее решение. Заранее спасибо.