Дайте пример как делать этапы компьютерного моделирования, ну например деревянного стола

Эскиз деталей
потом сделать их,
отверстия для гвоздей))
поверхность стола
ножки

Алгоритм выполнения домашнего задания.
Начало
Взять дневник.
Посмотреть домашние задания.
Распланировать последовательность выполнения заданий.
Распределить время выполнения.
Открыть нужные учебники и тетради.
Начать выполнять домашнее задание.
После их выполнения сложить учебники и тетради в портфель.
Конец.
Алгоритм рецепта приготовления пирога.
Начало.
Налить 250 мл кефира в стакан.
Взять 2 яйца.
Взять 1 стакан муки.
Взять 1 луковицу.
Взять 1 картофелину.
Взять 1 банку консервированной горбуши.
Взять 1/2 ложки гашенной соды.
Смешать в тарелке яйца, кефир, муку, соду.
Замешать тесто.
Нарезать картофель мелкой соломкой.
Половину полученного теста вылить в форму для запекания.
Выложить на него картофель.
Обжарить лук до прозрачности.
Разминаем горбушу.
Кладем ее вместе с луком к картофелю. 
Заливаем полученное второй половиной теста.
Разогреваем духовку до 180 градусов.
Выпекаем 40 минут.
Зубочисткой проверяем готовность пирога.
Конец.
Алгоритм мытья посуды.
Начало.
Берем губку.
Наносим на нее моющее средство. 
Грязную посуду складываем в раковину.
Протираем губкой посуду.
Включаем воду.
Смываем ею моющее средство с посуды.
Складываем чистую посуду в шкаф.
Конец.
Алгоритм путешествия Колобка в известной сказке.
Начало.
Уйти от бабушки с дедушкой.
Встретить зайца.
Уйти от него.
Встретить волка.
Уйти от него.
Встретить медведя.
Уйти от него.
Встретить лису.
Поверить лисе.
Оказаться съеденным. 
Конец.

Var
  mas: array[1..9] of integer;
  max, min, i, j, k, n: integer;
begin
  writeln('Массив до перестановки');
  for i := 1 to 9 do
  begin
    mas[i] := random(11) - random(11);
    write(mas[i], ' ');
  end;
  writeln;
  max := mas[1];
  min := mas[1];
  k := 1;
  j := 1;
  for i := 1 to 9 do
  begin
    if mas[i] > max then
    begin
      max := mas[i];
      j := i;
    end;
    if mas[i] < min then
     begin
      min := mas[i];
      k := i;
    end;
  end;
  n := mas[j];
  mas[j] := min;
  mas[k] := n;
  writeln('Масств после перестановки');
  for i := 1 to 9 do
    write(mas[i], ' ');
end.