это супер но я вас очень прикреплю задание,

При настройке iCloud вы автоматически получаете хранилище емкостью 5 ГБ. Его можно использовать для резервного копирования в iCloud, сохранения фотографий и видео в программе «Фото iCloud» и синхронизации документов через iCloud Drive. Если требуется дополнительное место, можно купить дополнительное место в iCloud. Можно приобрести подписку от 50 ГБ за 0,99 доллара США в месяц. При выборе тарифного плана 200 ГБ или 2 ТБ можно использовать хранилище совместно с членами семьи. Дополнительные сведения о тарифных планах и ценах для вашего региона см. в этой статье.

Если у вас закончится место в хранилище iCloud, устройство не будет сохранять резервные копии в iCloud, фотографии и видео не будут выгружаться в «Фото iCloud», iCloud Drive и другие программы iCloud, а текстовые сообщения не будут синхронизироваться на всех ваших устройствах. Кроме того, вы не сможете отправлять или получать сообщения, используя адрес электронной почты iCloud. В таком случае можно увеличить пространство в хранилище.

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..30] of real; // Массива чисел

  P:real; // Произведение чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  P:=1;

  for i:=1 to n do

     if(a[i]>P) then

        P:=P*a[i];    

  readln;

  writeln('P= ',P);

End.

Возможно я не так понял задание, но вот