1)Обобщенное представление всех будущих пользователей БД.
2)Внутренний уровень.
3)Не совсем понял вопрос, поэтому не смогу Вам с ним помочь.
Надеюсь помог, удачи :)
var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);
if (b<0) then
repeat
a:=a+2;
until (a>70);
writeln (a);
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
число, куб: ЦЕЛ;
УКАЗ
число := 1;
КОЛЬЦО
УВЕЛИЧИТЬ(число);
куб := число * число * число;
ПОКА куб > 10000 ВЫП
куб := куб ДЕЛИТЬ 10
КОН;
ЕСЛИ куб = 2016 ТО
Вывод.ЧЦел("%d", число, 0, 0, 0);
ВЫХОД
КОН
КОН
КОН Задание.