x-3 version 1.0 alpha

//Функция, возвращающая 1, если //на входе 2 и 2, если на входе 1.
var x,y,z,l,k,p,w,q:integer;
w:string;  //Чмошники
label 1;
begin
writeln('Функция возвращающая 1, если на входе 2. И соответственно 2, если на входе 1');
writeln('');
writeln('');
writeln('В будущем будет добавлена функция управление рабами');
writeln('');
writeln('');
    Randomize;
    writeln('Вы принимаете условия лицензионного соглашения? Y/n')
    read(l);
      if L='y' then
         begin{НА лицензионное соглашение}
         writeln('Доступна платная версия, которая позволит пропустить капчу');
         writeln('Купить-введи 1, остаться чмошником-0);
         read(p);
            case p of
               1: begin
                  writeln('Нажмите любую кнопку, чтобы заплатить 50 евреев');
                  read(w);
                  writeln('Спасибо, теперь вы не будете проходить капчу');
                  q:=1;  //Переменная отвечает за то, что куплена программа, 1-да, 0-нет
                  end;{begin}
               2: begin
                  writeln('Поздравляем, вы Чмошник, и будете мучатся с капчей');
                  q:=0;
                  writeln('Введите ваше имя, чтобы мы записали вас в категорию "Чмошники" ');
                  read(w);
                  end;{begin}
            end;{case}
            y:=0;
1:          case q fo
               1: begin
                     writeln('Проверка от спам бота, ЧТОБЫ ВОСПОЛЬЗОВАТЬСЯ ПРОГРАММОЙ');
                       y:=Random(999999);
                     writeln('Введите это число ',y);
                     read(z);
                        if z=y then read(x)
                        else goto 1;
                       y:=Random(999999);
                     writeln('Проверка от спам бота, ЧТОБЫ ВВЕСТИ ПЕРЕМЕННУЮ');
                     writeln('Введите это число ',y);
                     read(z);
                        if z=y then begin
                             writeln('Введите переменную');
                             k:=3-x;
                             end;
                        else goto 1;
                       y:=Random(999999);
                     writeln('Проверка от спам бота, ЧТОБЫ ВЫВЕСТИ РЕЗУЛЬТАТ');
                     read(z);
                        if z=y then writeln(k);
                        else goto 1;
                  end;{begin}
               2: begin
                     writeln('Введите переменную');
                     read(x);
                     k:=3-x;
                     writeln(k);
                  end;
            end;{case}
     else begin
            writeln('тогда нах*й запустил?');
            exit;
          end;
end.