Версия 2.6 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 crt,graphABC;
var
z,y,x,v,t,s,r,q:integer; //,r
a,b,c: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
  goto aa;//пропускаем все, и идем к началу

//НАЧАЛО: Настройка отображения
op:writeln('Отчищать экран от предведущеих записей? Y/n');
   read(c);
   if c='y' then r:=1
   else r:=0;
   writeln('В будущем будет добавленны новые функции');
   goto aa;
//КОНЕЦ: Настройка отображения

//Начало: Обнуление всех переменных
aa: q:=0;
    z:=0;
    y:=0;
    v:=0;
    t:=0;
    b:='0';
//Конец: Обнуление всех переменных

   writeln('  ...:::Пример интерфейса в паскале:::...');
   delay(250);
   writeln('                              Версия 2.6 alpha');
   delay(250);
   writeln('Пока не работает функция переход к началу');
   delay(250);
   writeln('Чтобы узнать команды');
   writeln('Введите ? или help');
   read(a);
   writeln('Вы ввели '+a);
   if a='?' then q:=1;
   if a='help' then q:=1;
   delay(750);
    case q of
       1: begin
          if r=1 then clearwindow;   //Отчищаем экран, если задано в настройках
          writeln('....:::Список доступных команд:::....');
          writeln('Чтобы перейти к настройке отображения введите 1');
          writeln('Чтобы посмотреть список всех задачь нажмите 2 ');
          writeln('Чтобы быстро перейти к задаче нажмите 3');
          writeln('Чтобы вернуться к главному меню введите 4');
          read(z);
          writeln('Вы ввели '+inttostr(z));//
          delay(750);
          case z of
           1: goto op;           //переходим к настройке отображения
           2: goto ab;           //переходим к списку всех задачь
           3: goto ac;           //переходим к вводу номера конкретной задачи
           4: goto aa;           //переходим к самому началу
          else
            begin
            writeln('Нет такой команды');
            goto aa;
            end;
          end;{case}
        end;{then}
    end;{case}

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

//Начало: Задача 1
ad:writeln('Задача №1');
   writeln('Задание:Сложить два числа и вывести на экран');
   writeln('Введите первое число');
   read(v);
   writeln('Введите второе число');
   read(t);
   writeln('Вы ввели '+inttostr(v)+' и '+inttostr(t));//
   delay(750);
   s:=v+t;
   writeln(s);
   writeln('[Не работает]Вернуться в начало? y/n');
   read(b);
   writeln('Вы ввели '+b);//
   delay(750);
   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:writeln('hello world');
   writeln('[Не работает]Вернуться в начало? Y/n');
   read(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 ad; ///исправить
   else
     begin
     writeln('Такой задачи пока нету');
     goto aa;
     end;
   end;
//Конец:Быстрый переход к задаче


en:
end.