Вводятся N целых случайных чисел. Найти разницу между наибольшим и
наименьшим из них. В Паскале

/PascalABC.NETVarn,i,s,max,min:integer;beginmax:=-1000;min:=1000;write('Введите кол-во элементов: ');readln(n);for i:=1 to n do begins:=random(2000)-1000;write(s,' ');if s>max then max:=s;if s<min then min:=s;end;writeln;writeln('Максимальный элемент: ',max, ' Минимальный: ', min,' Разница между элементами: ', max - min);end.