Создать БД "Парикмахерская". Данные организовать в виде 3 таблиц: "Услуги", "Персонал", "Клиенты". Каждая таблица должна содержать не менее 3-х полей с различными типами данных. Недостающие данные необходимо придумать самим. Создать запросы для определения следующих выборок:

а) фамилии парикмахеров, которые работают в мужском зале;

б) клиенты, которые были записаны на стрижку с 5.03.20 по 5.06.20.

Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком. 

Программа.
var q,s:integer; 
begin
s:=1;
for q:=1 to 365 do
 s:=s+q;
Writeln(s);
end.

Описание программы.
var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата.
begin // Начало выполнение программы.
s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль.
for q:=1 to 365 do // Цикл от 1 до 365 
 s:=s+q; // Сумма цикла. То есть -  Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня.
Writeln(s); // Вывод результата.
end. // Конец выполнение программы.