Версия 2.7 alpha

// A B C D E F G H I K L M N O P Q R S T V X Y Z
uses graphABC;
var
z,y,x,v,t,s,r,q,p,o:integer; // o-отчистка экрана
a,b:string;       // b-Y/n  ,c   a-?/help
label aa,ab,ac,ad,af,ag,jk,en,op;     //aa-начало, ab-список всех задачь, ac-ввод номера задачи для быстрого перехода an-конец, op-настрйки
                                //ad-задача 1, af-задача 2, ag-задача 3

begin
aa:
////Начало: Обнуление всех переменных
////   z:=0;
////   y:=0;
////   v:=0;
////   t:=0;
////   b:='0';
////Конец: Обнуление всех переменных
   if 'o'='1' then clearwindow;
   writeln('   #==============================#');
   writeln('   #          Библеотека задач                      #');
   writeln('   #==============================#');
   writeln('   #Версия 2.7 Автор:Александр Ковалько#');
   writeln('   #==============================#');
   writeln('      Вскоре добавиться функция в начало');
   writeln('             Чтобы узнать команды');
   writeln('                Введите ? или help');
   read(a);
   writeln('                      Вы ввели '+a);
   if a='?' then q:=1;
   if a='help' then q:=1;
    case q of
       1: begin
          if o=1 then clear;   //Отчищаем экран, если задано в настройках
          writeln('');
          writeln('');
          writeln('....:::Список доступных команд:::....');
          writeln('Чтобы перейти к настройке отображения введите 1');
          writeln('Чтобы посмотреть список всех задачь нажмите 2 ');
          writeln('Чтобы быстро перейти к задаче нажмите 3');
////          writeln('Чтобы вернуться к главному меню введите 4');
          read(z);
          writeln('Вы ввели '+inttostr(z));
          case z of
           1: goto op;           //переходим к настройке отображения
           2: goto ab;           //переходим к списку всех задачь
           3: goto ac;           //переходим к вводу номера конкретной задачи
////           4: goto aa;           //переходим к самому началу
          else
            begin
            if o=1 then clearwindow;
            writeln('Нет такой команды');
            goto aa;
            end;
          end;{case}
        end;{then}
      else
       begin
       if o=1 then clearwindow;
       writeln('Такой команды не существует');
       exit;
      end;
    end;{case}

//Начало: Список всех задачь
ab:if o=1 then clearwindow;   //Отчищаем экран, если задано в настройках
   writeln('Список всех задачь:');
   writeln('№1 Сложение двух чисел, и вывод результата');
   writeln('№2 Задача на нахождение кубического корня');
   writeln('№3 написать hello world');
///   writeln('Введите 0 чтобы вернуться в начало');
   read(y);
   writeln('Вы ввели '+inttostr(y));
   case y of
///     0: goto aa;  //Переходим в начало
     1: goto ad;  //Переходим к первой задаче
     2: goto af;  //
     3: goto ag;  //
   else
     begin
     if o=1 then clearwindow;
     writeln('Такой задачи пока нет');
     exit;
     end;
   end;{case}
//Конец: Список всех задачь

//Начало: Задача 1
ad:if o=1 then clearwindow;
   writeln('Задача №1');
   writeln('Задание:Сложить два числа и вывести на экран');
   writeln('Введите первое число');
   read(v);

   writeln('Введите второе число');
   read(t);
   writeln('Вы ввели ',v,' и ',t);
   s:=v+t;
   writeln(s);
   exit;             ////writeln('[Не работает]Вернуться в начало? y/n');
                     ////read(b);
                     ////writeln('Вы ввели '+b);
                     ////if b='y' then goto aa
                     ////else if b='n' then goto en
                     ////else
                     ////begin
                     ////writeln('Такой команды нет');
                     ////goto aa;
                     ////end;
//Конец: Зачача 1

//Начало: Задача 2
af:
//Конец: Зачача 2

//Начало: Задача 3
ag:if o=1 then clearwindow;
   writeln('hello world');
   exit;             ////writeln('[Не работает]Вернуться в начало? y/n');
                     ////read(b);
                     ////writeln('Вы ввели '+b);
                     ////if b='y' then goto aa
                     ////else if b='n' then goto en
                     ////else
                     ////begin
                     ////writeln('Такой команды нет');
                     ////goto aa;
                     ////end;
//Конец: Зачача 3

//Начало:Быстрый переход к задаче
ac:writeln('Введите нормер задачи');
   read(x);
   case x of
   1: goto ad; //переход к 1ой задаче
   2: goto ad; ///исправить
   3: goto ag; //переход к 2ой задаче
   else
     begin
     writeln('Такой задачи пока нету');
     exit
     end;
   end;{case}
//Конец:Быстрый переход к задаче

//НАЧАЛО: Настройка отображения
op:writeln('Отчищать экран от предведущеих записей? 1/0');
   read(p);
   case p of
    1: begin
       o:=1;
       writeln('Предведущие записи будут отчищаться')
       end;
    0: begin
       o:=0;
       writeln('Предведущие записи не будут отчищаться');
       writeln('');
       writeln('');
       end;
   end;{case}
   goto aa;

//КОНЕЦ: Настройка отображения
en:
end.