Разработка информационной структуры БД. Описание поля. Уникальный атрибут. Простой и составной ключи. Поиск объекта по значению уникального атрибута. Упорядочение и сортировка данных в базе.

#генерируем список из 2000 элементов
my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]

# начальное значение для временного минимума
min1_value = min2_value = 10000
min1_number = min2_number = 0

while my_list:
    x = my_list.pop()
    if x < min1_value:
        min2_value = min1_value
        min2_number = min1_number
        min1_value = x
        min1_number = 1
    elif x == min1_value:
        min1_number += 1
    elif x < min2_value:
        min2_value = x
        min2_number = 1
    elif x == min2_value:
        min2_number += 1
        
print(min2_number)

Var money, cost,summa : real;
count : integer;
 tovar: string;
begin writeln('Введите исходные данные: ');
  writeln('Какой товар вы покупаете? ');
 readln(tovar);
  writeln('По какой цене? ');
 readln(cost);
  writeln('Сколько штук? ');
 readln(count);
  summa := cost*count; writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);  writeln('Сколько денег даете? ');
 readln(money);
  if money=summa then writeln('свободен, под расчёт') else if money > summa then writeln('Ваша сдача: ', money-summa) else writeln('Нужно добавить: ', summa-money,. ');
 end.