Создать три таблицы. Первая - клиенты (поля-Фамилия, имя, отчество, дата рождения, телефон, скидка, составной ключ ФИО), вторая Товары( поля - название товара, количество товара, цена товара, простой ключ -Название товара) тетья Продажи(поля- Id,клиент, товар, количество проданного, скидка? ключ простой -Id) В таблицах клиент и товар сделать 10 записей.

Відповідь:

from random import randint as randit

num = int(input("Введіть число: "))

lst = []

for elem in range(5):

   lst.append( randit(1, 50) )

   sumlist = sum(lst)

print("Сума чисел у масиві", sumlist)

print("Масив", lst)

if num > sumlist:

   print("Число", str(num), "більше за суму чисел у масиві")

elif num < sumlist:

   print("Число", str(num), "меньше за суму чисел у масиві")

elif num != sumlist:

   print("Число", str(num), "не дорівнює сумі чисел у масиві")

elif num == sumlist:

   print("Число", str(num), "дорівнює сумі чисел у масиві")

Пояснення:

Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй.
var
i:integer;
begin
writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20');
readln
end.

Вывести квадраты чисел от 1 до 10
var   
i: integer;
begin    
for i:=1 to 10 do      
writeln(i:4,'   ',sqr(i):4);    
readln
end.

Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие)
var
i,n:integer;
begin
writeln('Введите кол-во повторов числа: ');
readln(n);
for i:=1 to n do
writeln('5');
readln
end.