На екрані відображається малюнок розміром 10х7 см. Один квадратний сантиметр екрану містить 16х16 пікселів, а глибина кольору – 24 біти.

Все формулы прописываем для товара А и далее растягиваем

Искомое значение - буква необходимого нам товара

Таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет

Номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2

Интервальный просмотр - Ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение

Стоимость находим перемножая цену и количество

const

 N=5;

 M=3;

type matr=array [1..N,1..M] of integer;

var

 a:matr;

 t,k:integer;

procedure Random(var b:matr; var l,p:integer);

 var i,j:integer;

 begin

   for i:=1 to N do

     begin

       for j:=1 to M do

         begin

           a[i,j]:=random(l)+1;

           write(a[i,j]:4);

         end;

       writeln;

     end;

   writeln;

   for j:=1 to M do

     write(a[p,j]:4);

 end;

begin

 write('Введите длину отрезка(t): '); readln(t);

 write('Введите интересующую строку(k): ');readln(k);

 Random(a,t,k);

 writeln;

end.

В задании не требуется выводить всю матрицу, но для проверки оставил. Убери, если критично, но правильность работы программы не проверить будет