Экранные меню и циклы

✅требования к программе:

⃣программа должна содержать трёхуровневое иерархическое меню (см. схему)
⃣в программе должны быть расчёты (начиная со 2 уровня пользователь должен иметь возможность не только выбрать дальнейшее действие, но и рассчитать некоторые промежуточные параметры. желательно, если расчёты будут являться логическим продолжением этапов решения и не будут простыми (например, в одно действие операции сложения))
⃣в коде программы обязательно использовать следующие операторы (каждый минимум один раз! ):
: =
writeln
readln
if
case
for
while
repeat
⃣в программе должен быть предусмотрен переход на предыдущий уровень
⃣ в любой момент времени у пользователя должна быть возможность выйти из программы совсем
⃣эргономичный, дружественный интерфейс пользователя

⏫ работа над проектом должна быть разделена на следующие этапы:

✅сформулировать постановку
✅описать предметную область
✅составить модель решения
✅составить алгоритм решения (не программы)
✅написать код программы по заданному алгоритму.
✅проанализировать полученные результаты, сделать вывод

1) ACI, PCY, SCCU, SATA. Каждая шина отвечает за свои устройства, поэтому их так много.

2) Характеристика шины: разрядность потока шины от 32 до 64, скорость передачи данных от 550 мб до 2 ГБ, температура от 20 до 30 градусов.

3) Жёсткий диск(ACI), клавиатура(USB), колонки(PCI), мышь(USB).

4) Их всего 4 вида: SATA, ATA-E, MicroUSB, FSI.

5) На сегодняшний день существует два современных интерфейса, это SQL и SATA. Они используются оба, потому что для каждого интерфейса нужны свои системные шины, к которым соответственно, подключаются контроллеры.

var
a:real;
b:real;
c:real;
x1,x2,x3:integer;
y1,y2,y3:integer;
p:real;
s:real;
begin
writeln('первые координаты треугольника x ');
readln(x1);
writeln('вторые координаты треугольгика x ');
readln(x2);
writeln('третьи координаты треугольгика x ');
readln(x3);
writeln('четвертые координаты треугольгика y ');
readln(y1);
writeln('пятые координаты треугольгика y ');
readln(y2);
writeln('шестые координаты треугольгика y ');
readln(y3);
a:=sqrt(x2-x1)+ (y2-y1);
b:=sqrt(x3-x2)+(y3-y2);
c:=sqrt(x3-x1)+(y3-y1);
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Периметр = ',p:2:0);
writeln('Площадь=',s:1:2);
readln;
end.