program kr3;
uses crt;
type
   mas=array[1..10] of integer;
   tovar=record
          zavodizg,zavodpost:string;
          ntovar:string;
          chit:integer;
          mag:mas;
          cena:real;

   end;

var
   m:array[1..10] of tovar;
   i,j,l,min,pos:integer;
   k:array[1..10] of integer;

BEGIN
clrscr;
for i:=1 to 10 do
    begin
    writeln('Введите название товара:');
    readln(m[i].ntovar);
    writeln('Введите завод-изготовитель:');
    readln(m[i].zavodizg);
    writeln('Введите завод-поставщик:');
    readln(m[i].zavodpost);
    Writeln('Сколько магазинов заказало товар?');
    readln(m[i].chit);
        for l:=1 to m[i].chit do
        begin
        Writeln('Введите номер магазина:');
        readln(m[i].mag[l]);
        end;
    writeln('Введите цену товара в $:');
    readln(m[i].cena);
    writeln('Ваша информация занесена в базу данных');
    end;

writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
if min>m[i].chit then
   begin
   pos:=i;
   end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);


readln;
END.

writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
if min>m[i].chit then
   begin
   pos:=i;
   end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);

writeln('Поиск товаров не пользующихся спросом:');
min:=1000;
for i:=1 to 10 do
begin
if min>m[i].chit then
   begin
   min:=m[i].chit;
   pos:=i;
   end;
end;
writeln('Самый не популярный товар: ',m[pos].ntovar,', его изготовил: ',m[pos].zavodizg);