uses crt;
var otv: integer;
    K: integer = 0;
    E1,E2: integer;
    label A;



Procedure pizda;
var n: integer;
begin
        repeat
        n:=random(1,5);
        case n of
        1: writeln('Ты глупый или что-то? Сказано же, что нужно писать 1 или 0');
        2: writeln('Ты как смирительную рубашку снял? Пиши 1 или 0!!');
        3: writeln('Тупое существо не может понять, что нужно писать 1 или 0. Да-да, я про тебя');
        4: writeln('Ты тупее всех тупых. Пиши 1 или 0!');
        5: writeln('Ты однозначно пидор. Тут даже тесты проходить не нужно. Пиши 1 или 0!');
        end;
        readln(otv);
        until (otv = 1) or (otv = 0);
end;



Procedure pizda1;
var n1: integer;
begin
        repeat
        n1:=random(1,5);
        case n1 of
        1: writeln('Ты глупый или что-то? Сказано же, что нужно писать 1 или 0');
        2: writeln('Ты как смирительную рубашку снял? Пиши 1 или 0!!');
        3: writeln('Тупое существо не может понять, что нужно писать 1 или 0. Да-да, я про тебя');
        4: writeln('Ты тупее всех тупых. Пиши 1 или 0!');
        5: writeln('Ты однозначно пидор. Тут даже тесты проходить не нужно. Пиши 1 или 0!');
        end;
        readln(otv);
        until (otv = 1) or (otv = 0);
        k+=1;
end;



Procedure pidor;
var npidor: integer;
begin
  repeat
    npidor := random(1,3);;
    case npidor of
      1: writeln('Все мы не готовы к чему-либо, но тебе нужно быть готовым признать свою нетрадиционную ориентацию');
      2: writeln('Я, конечно, понимаю, что ты не хочешь признаваться в том, что ты гей, но это нужно сделать...');
      3: writeln('Я прекрасно понимаю, что ты гей в душе, но приготовься и введи цифру 1 ;)');
    end;
    readln(otv);
  until otv = 1;
  k+=1;
end;



Procedure pidor1;
var npidor1: integer;
begin
  repeat
    npidor1 := random(1,3);;
    case npidor1 of
      1: writeln('Все мы не готовы к чему-либо, но тебе нужно быть готовым признать свою нетрадиционную ориентацию');
      2: writeln('Я, конечно, понимаю, что ты не хочешь признаваться в том, что ты гей, но это нужно сделать...');
      3: writeln('Я прекрасно понимаю, что ты гей в душе, но приготовься и введи цифру 1 ;)');
    end;
    readln(otv);
  until otv = 1;
end;



begin
  writeln('Приветствую!');
  Sleep(1000);
  writeln('Сейчас ты пройдёшь тест на пидора');
  Sleep(1000);
  writeln('Для ответа на вопросы используй цифры 1 и 0. 1 - если да. 0 - если нет');
  writeln;
  Sleep(1000);
  writeln('Если ты готов, то напиши 1, если нет, то 0');
  readln(otv);
  if (otv = 1) or (otv = 0) then
    begin
      case otv of
        0: pidor1;
        1: goto A;
      end;
    end
    else pizda;




  A:
  writeln;
  writeln('Итак, приступим к тесту');
  writeln;
  Sleep(1000);
  writeln('Первый вопрос звучит так: видя гей-пару на улице, испытываешь ли ты чувство отвращения к ним?');
  readln(otv);
  if (otv = 1) or (otv = 0) then
    begin
      case otv of
        0: k:=k;
        1: k+=1;
      end;
    end
    else pizda1;


  writeln;
  writeln('Второй вопрос...');
  Sleep(1000);
  writeln('Часто ты ли говоришь другому парню "Отсоси у меня"?');
  readln(otv);
  if (otv = 1) or (otv = 0) then
    begin
      case otv of
        0: k:=k;
        1: k+=1;
      end;
    end
    else pizda1;

    writeln;
  writeln('Третий вопрос...');
  Sleep(1000);
  writeln('Согласился ли ты проколоть себе ухо и вставить туда серьгу за деньги?');
  readln(otv);
  if (otv = 1) or (otv = 0) then
    begin
      case otv of
        0: k:=k;
        1: k+=1;
      end;
    end
    else pizda1;


    writeln;
    writeln('Наш тест завершён. Сейчас программа подсчитает результаты');
    E1 := random(10,30);
    E2 := random(50,80);
    writeln('Загрузка завершена на ',E1,'%');
    Sleep(1000);
    writeln('Загрузка завершена на ',E2,'%');
    Sleep(1000);
    writeln('Загрузка завершена на 100%');
    Sleep(1000);
    writeln;
    writeln('Итак, вот результат теста:');
    case k of
      0: writeln('Если у тебя высветилась эта надпись, то ты тот еще пидорок, однако ты скрываешь это. Тест пройден');
      1: writeln('В каком-то из пунктов ты ответил "да". Ты пидор на 33%');
      2: writeln('Ты более чем на половину пидорас. Стоит задуматься об этом');
      3: writeln('Ты пидор на все 100%. Мне неприятно с тобой иметь дело. Закрой эту программу как можно скорее');
    end;



    writeln;
    writeln('Вот и всё. И напоследок, напиши слово "да" (именно маленькими буквами)');
    var otv1 := ReadString;;
    writeln;
    if otv1 = 'да' then writeln('пизда)')
    else writeln('пошёл нахуй');
    writeln;
end.