Написать программу для 2 и 3 Задания все есть на фото​

var

i, n, min, max: integer;

arr: array[integer] of integer;

begin

readln(n);

read(arr[0]);

min := arr[0];

for i := 1 to n-1 do

begin

read(arr[i]);

if arr[i] < min then min := arr[i];

end;

max := min;

for i := 0 to n-1 do

if arr[i] > max then max := arr[i];  

writeln(max-min);

end.