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

Var
a : array[1..10] of word;
max : word;
begin
   
  randomize;
 
  for I : byte := 1 to 10 do
  a[i] := random(1, 60000);

  max := 0;
  for I : byte := 1 to 10 do
  if a[i] > max then max := a[i];

  writeln(max*3);

end.

Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.

 список учительницы                                                              список Марины 

Катя Арбузова                                                                            Марина Яблочкина

Яша Арбузов

Коля Белкин                                                                              Роберт   Щукин

Лена Волкова                                                                             Сережа Тополев 

Дима Иволгин                                                                             Валя Стрелкина    

Валя Стрелкина                                                                         Дима Иволгин 

Серёжа Тополев                                                                         Коля Белкин                                                                                                                                                      Лена Волкова

Роберт Щукин                                                                              Яша Арбузов

Марина Яблочкина                                                                     Катя Арбузова