Записать в одновременный массив 9 целых чисел и посчитать их разность. на паскале

var a,i,k:integer;

arr:Array[1..10] of integer;

begin

 randomize;

 for i:= 1 to 10 do

 begin

   a:=random(1,20);

   arr[i]:=a;

 end;

   k:= arr[1];

 for i:= 1 to 10 do

 begin

   k:= k - arr[i];

 end;

 for i:= 1 to 10 do

   write(arr[i], ' ');

   writeln();

   writeln('Разность чисел - ',k);

end.

Объяснение:

первый цикл заполняет массив случайными целыми числами

второй вычисляет разность

третий нужен для вывода массива (необязательно но для наглядности)