В массиве храниться информация о цены товаров. Составьте программку, которая определяет

program zz1;
var mas:array[1..10] of integer;
i,min,max,k1,k2:integer;
begin
for i:=1 to 10 do //наполняем массив случайными числами от 10 до 30
mas[i]:=random(21)+10;
for i:=1 to 10 do //выводим приобретенный массив на экран
write(mas[i], );
writeln; //перебегаем на новую строчку для вывода
max:=0; min:=1000; //задаем исходные значения
for i:=1 to 10 do
if mas[i]gt;max then begin max:=mas[i];k1:=i;end; //проверяем, если число из массива больше наибольшего, то записываем его в максимальное
for i:=1 to 10 do
if mas[i]lt;min then begin min:=mas[i];k2:=i;end; //проверяем, если число из массива меньше малого, то записываем его в малое

writeln(самый дешевенький товар стоит - ,min, его номер - ,k2); //выводим ответ
write(самый дорогой продукт стоит - ,max, его номер - ,k1); 
end.