program ideone;
// Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.). 
// Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal 
// и Delphi Pascal. Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// http://p...content-available-to-author-only...c.net/WDE/?file=имя_опубликованного_файла.pas
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
var
  c,d:integer;
 
    procedure P(x,y:integer);
    begin
        y:=x+1;
    end;
 
    procedure Q(x:integer; var y:integer);
    begin
        y:=x+1;
    end;
 
//    procedure R(var x,y:integer);
 //   begin
  //      y:=x+1;
   // end;
 
begin
c:=2; d:=0; P(sqr(c)+c,d); writeln(d); 
//c:=2; d:=0; Q(sqr(c)+c,d); writeln(d); 
//c:=2; d:=0; R(sqr(c)+c,d); writeln(d);    
end.

cHJvZ3JhbSBpZGVvbmU7Ci8vINCf0LXRgNC10LQg0LLQsNC80LggLSBXRUIt0YHRgNC10LTQsCDRgNCw0LfRgNCw0LHQvtGC0LrQuCBQYXNjYWxBQkMuTkVUICjQstC10YDRgdC40Y8gMS4wLCDQsNC/0YDQtdC70YwgMjAxMSDQsy4pLiAKLy8g0J7QvdCwINC+0YHQvdC+0LLQsNC90LAg0L3QsCDRgdC+0LLRgNC10LzQtdC90L3QvtC8INGP0LfRi9C60LUgUGFzY2FsQUJDLk5FVCwg0YHQvtCy0LzQtdGB0YLQuNC80L7QvCDRgSBUdXJibyBQYXNjYWwgCi8vINC4IERlbHBoaSBQYXNjYWwuINCf0YDQvtCz0YDQsNC80LzQsCDQt9Cw0L/Rg9GB0LrQsNC10YLRgdGPINC90LAg0YHQtdGA0LLQtdGA0LUsINCy0LLQvtC0LdCy0YvQstC+0LQg0L/QtdGA0LXQtNCw0LXRgtGB0Y8g0L/QviDRgdC10YLQuC4KLy8g0J/RgNC+0LPRgNCw0LzQvNGDINC80L7QttC90L4g0L7Qv9GD0LHQu9C40LrQvtCy0LDRgtGMINC4INGB0YHRi9C70LDRgtGM0YHRjyDQvdCwINC90LXQtSDQsiDQmNC90YLQtdGA0L3QtdGC0LUg0LIg0LLQuNC00LUKLy8gaHR0cDovL3AuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmMubmV0L1dERS8/ZmlsZT3QuNC80Y9f0L7Qv9GD0LHQu9C40LrQvtCy0LDQvdC90L7Qs9C+X9GE0LDQudC70LAucGFzCi8vINCX0LDRgNC10LPQuNGB0YLRgNC40YDQvtCy0LDQvdC90YvQtSDQv9C+0LvRjNC30L7QstCw0YLQtdC70Lgg0L/QvtC70YPRh9Cw0Y7RgiDQtNC+0L/QvtC70L3QuNGC0LXQu9GM0L3Ri9C1INCy0L7Qt9C80L7QttC90L7RgdGC0Lg6Ci8vINC00L7Qu9Cz0L7QstGA0LXQvNC10L3QvdC+0LUg0YXRgNCw0L3QtdC90LjQtSDRgdCy0L7QuNGFINC/0YDQvtCz0YDQsNC80LwsINCy0L7Qt9C80L7QttC90L7RgdGC0Ywg0YDQsNCx0L7RgtGLINGBINC/0LDQv9C60LDQvNC4IAp2YXIKICBjLGQ6aW50ZWdlcjsKCiAgICBwcm9jZWR1cmUgUCh4LHk6aW50ZWdlcik7CiAgICBiZWdpbgogICAgICAgIHk6PXgrMTsKICAgIGVuZDsKICAgIAogICAgcHJvY2VkdXJlIFEoeDppbnRlZ2VyOyB2YXIgeTppbnRlZ2VyKTsKICAgIGJlZ2luCiAgICAgICAgeTo9eCsxOwogICAgZW5kOwogICAgCi8vICAgIHByb2NlZHVyZSBSKHZhciB4LHk6aW50ZWdlcik7CiAvLyAgIGJlZ2luCiAgLy8gICAgICB5Oj14KzE7CiAgIC8vIGVuZDsKCmJlZ2luCmM6PTI7IGQ6PTA7IFAoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7IAovL2M6PTI7IGQ6PTA7IFEoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7IAovL2M6PTI7IGQ6PTA7IFIoc3FyKGMpK2MsZCk7IHdyaXRlbG4oZCk7ICAgIAplbmQu

cHJvZ3JhbSBHdWVzc1RoZU51bWJlcjsKCnskQVBQVFlQRSBDT05TT0xFfQoKdXNlcwogIFN5c3RlbS5TeXNVdGlscywKICBTeXN0ZW0uTWF0aDsKCnZhcgogIFNlY3JldE51bWJlcjogSW50ZWdlcjsKICBHdWVzczogSW50ZWdlcjsKICBHdWVzc0NvdW50OiBJbnRlZ2VyOwogIE1heEd1ZXNzZXM6IEludGVnZXI7CiAgRGlmZmljdWx0eTogSW50ZWdlcjsKCnByb2NlZHVyZSBJbml0aWFsaXplR2FtZTsKYmVnaW4KICAvLyDQktGL0LHQvtGAINGB0LvQvtC20L3QvtGB0YLQuAogIHJlcGVhdAogICAgV3JpdGVMbign0JLRi9Cx0LXRgNC40YLQtSDRgdC70L7QttC90L7RgdGC0Yw6Jyk7CiAgICBXcml0ZUxuKCcxIC0g0JvQtdCz0LrQsNGPICgxLTEwLCA1INC/0L7Qv9GL0YLQvtC6KScpOwogICAgV3JpdGVMbignMiAtINCh0YDQtdC00L3Rj9GPICgxLTUwLCA3INC/0L7Qv9GL0YLQvtC6KScpOwogICAgV3JpdGVMbignMyAtINCh0LvQvtC20L3QsNGPICgxLTEwMCwgMTAg0L/QvtC/0YvRgtC+0LopJyk7CiAgICBXcml0ZSgn0JLQsNGIINCy0YvQsdC+0YA6ICcpOwogICAgUmVhZExuKERpZmZpY3VsdHkpOwogIHVudGlsIChEaWZmaWN1bHR5ICZndDs9IDEpIGFuZCAoRGlmZmljdWx0eSAmbHQ7PSAzKTsKCiAgY2FzZSBEaWZmaWN1bHR5IG9mCiAgICAxOgogICAgYmVnaW4KICAgICAgU2VjcmV0TnVtYmVyIDo9IFJhbmRvbVJhbmdlKDEsIDEwKTsKICAgICAgTWF4R3Vlc3NlcyA6PSA1OwogICAgZW5kOwogICAgMjoKICAgIGJlZ2luCiAgICAgIFNlY3JldE51bWJlciA6PSBSYW5kb21SYW5nZSgxLCA1MCk7CiAgICAgIE1heEd1ZXNzZXMgOj0gNzsKICAgIGVuZDsKICAgIDM6CiAgICBiZWdpbgogICAgICBTZWNyZXROdW1iZXIgOj0gUmFuZG9tUmFuZ2UoMSwgMTAwKTsKICAgICAgTWF4R3Vlc3NlcyA6PSAxMDsKICAgIGVuZDsKICBlbmQ7CgogIEd1ZXNzQ291bnQgOj0gMDsKZW5kOwoKcHJvY2VkdXJlIFBsYXlHYW1lOwpiZWdpbgogIEluaXRpYWxpemVHYW1lOwoKICBXcml0ZUxuKCfQryDQt9Cw0LPQsNC00LDQuyDRh9C40YHQu9C+LiDQn9C+0L/RgNC+0LHRg9C50YLQtSDQtdCz0L4g0YPQs9Cw0LTQsNGC0YwhJyk7CiAgV3JpdGVMbign0KMg0LLQsNGBINC10YHRgtGMICcgKyBJbnRUb1N0cihNYXhHdWVzc2VzKSArICcg0L/QvtC/0YvRgtC+0LouJyk7CgogIHJlcGVhdAogICAgSW5jKEd1ZXNzQ291bnQpOwogICAgV3JpdGUoJ9Cf0L7Qv9GL0YLQutCwICcgKyBJbnRUb1N0cihHdWVzc0NvdW50KSArICc6ICcpOwogICAgdHJ5CiAgICAgIFJlYWRMbihHdWVzcyk7CiAgICBleGNlcHQKICAgICAgb24gRUNvbnZlcnRFcnJvciBkbwogICAgICBiZWdpbgogICAgICAgIFdyaXRlTG4oJ9Ce0YjQuNCx0LrQsDog0JLQstC10LTQuNGC0LUg0YbQtdC70L7QtSDRh9C40YHQu9C+LicpOwogICAgICAgIEd1ZXNzIDo9IC0xOyAvLyDQo9GB0YLQsNC90L7QstC60LAg0L3QtdCy0LDQu9C40LTQvdC+0LPQviDQt9C90LDRh9C10L3QuNGPINC00LvRjyDQv9C+0LLRgtC+0YDQvdC+0Lkg0L/QvtC/0YvRgtC60LgKICAgICAgICBDb250aW51ZTsgLy8g0J/QtdGA0LXRhdC+0LQg0Log0YHQu9C10LTRg9GO0YnQtdC5INC40YLQtdGA0LDRhtC40Lgg0YbQuNC60LvQsAogICAgICBlbmQ7CiAgICBlbmQ7CgogICAgaWYgR3Vlc3MgPSBTZWNyZXROdW1iZXIgdGhlbgogICAgYmVnaW4KICAgICAgV3JpdGVMbign0J/QvtC30LTRgNCw0LLQu9GP0Y4hINCS0Ysg0YPQs9Cw0LTQsNC70Lgg0YfQuNGB0LvQviAnICsgSW50VG9TdHIoU2VjcmV0TnVtYmVyKSArCiAgICAgICAgICAgICAnINC30LAgJyArIEludFRvU3RyKEd1ZXNzQ291bnQpICsgJyDQv9C+0L/Ri9GC0L7Qui4nKTsKICAgICAgRXhpdDsKICAgIGVuZDsKCiAgICBpZiBHdWVzcyAmbHQ7IFNlY3JldE51bWJlciB0aGVuCiAgICAgIFdyaXRlTG4oJ9CX0LDQs9Cw0LTQsNC90L3QvtC1INGH0LjRgdC70L4g0LHQvtC70YzRiNC1INCy0LDRiNC10LPQvi4nKQogICAgZWxzZQogICAgICBXcml0ZUxuKCfQl9Cw0LPQsNC00LDQvdC90L7QtSDRh9C40YHQu9C+INC80LXQvdGM0YjQtSDQstCw0YjQtdCz0L4uJyk7CgogICAgaWYgR3Vlc3NDb3VudCAmZ3Q7PSBNYXhHdWVzc2VzIHRoZW4KICAgIGJlZ2luCiAgICAgIFdyaXRlTG4oJ9CS0Ysg0LjRgdGH0LXRgNC/0LDQu9C4INCy0YHQtSDQv9C+0L/Ri9GC0LrQuC4g0JfQsNCz0LDQtNCw0L3QvdC+0LUg0YfQuNGB0LvQviDQsdGL0LvQviAnICsKICAgICAgICAgICAgIEludFRvU3RyKFNlY3JldE51bWJlcikgKyAnLicpOwogICAgICBFeGl0OwogICAgZW5kOwogIHVudGlsIEZhbHNlOyAvLyDQkdC10YHQutC+0L3QtdGH0L3Ri9C5INGG0LjQutC7LCDQutC+0YLQvtGA0YvQuSDQv9GA0LXRgNGL0LLQsNC10YLRgdGPINC/0L4gRXhpdAplbmQ7Cgp2YXIKICBQbGF5QWdhaW46IFN0cmluZzsKCmJlZ2luCiAgUmFuZG9taXplOyAvLyDQmNC90LjRhtC40LDQu9C40LfQsNGG0LjRjyDQs9C10L3QtdGA0LDRgtC+0YDQsCDRgdC70YPRh9Cw0LnQvdGL0YUg0YfQuNGB0LXQuwoKICByZXBlYXQKICAgIFBsYXlHYW1lOwoKICAgIFdyaXRlKCfQpdC+0YLQuNGC0LUg0YHRi9Cz0YDQsNGC0Ywg0LXRidC1INGA0LDQtz8gKNC00LAv0L3QtdGCKTogJyk7CiAgICBSZWFkTG4oUGxheUFnYWluKTsKCiAgICBpZiAoTG93ZXJDYXNlKFBsYXlBZ2FpbikgPSAn0LTQsCcpIHRoZW4KICAgICAgQ29udGludWUKICAgIGVsc2UKICAgICAgQnJlYWs7CiAgdW50aWwgRmFsc2U7IC8vINCR0LXRgdC60L7QvdC10YfQvdGL0Lkg0YbQuNC60LssINC/0YDQtdGA0YvQstCw0LXRgtGB0Y8g0L/QviBicmVhawoKICBXcml0ZUxuKCfQodC/0LDRgdC40LHQviDQt9CwINC40LPRgNGDIScpOwogIFJlYWRMbihQbGF5QWdhaW4pOyAvLyBQYXVzZSDRh9GC0L7QsdGLINC+0LrQvdC+INC90LUg0LfQsNC60YDRi9C70L7RgdGMINGB0YDQsNC30YMKZW5kLg==

program GuessTheNumber;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Math;

var
  SecretNumber: Integer;
  Guess: Integer;
  GuessCount: Integer;
  MaxGuesses: Integer;
  Difficulty: Integer;

procedure InitializeGame;
begin
  // Выбор сложности
  repeat
    WriteLn('Выберите сложность:');
    WriteLn('1 - Легкая (1-10, 5 попыток)');
    WriteLn('2 - Средняя (1-50, 7 попыток)');
    WriteLn('3 - Сложная (1-100, 10 попыток)');
    Write('Ваш выбор: ');
    ReadLn(Difficulty);
  until (Difficulty >= 1) and (Difficulty <= 3);

  case Difficulty of
    1:
    begin
      SecretNumber := RandomRange(1, 10);
      MaxGuesses := 5;
    end;
    2:
    begin
      SecretNumber := RandomRange(1, 50);
      MaxGuesses := 7;
    end;
    3:
    begin
      SecretNumber := RandomRange(1, 100);
      MaxGuesses := 10;
    end;
  end;

  GuessCount := 0;
end;

procedure PlayGame;
begin
  InitializeGame;

  WriteLn('Я загадал число. Попробуйте его угадать!');
  WriteLn('У вас есть ' + IntToStr(MaxGuesses) + ' попыток.');

  repeat
    Inc(GuessCount);
    Write('Попытка ' + IntToStr(GuessCount) + ': ');
    try
      ReadLn(Guess);
    except
      on EConvertError do
      begin
        WriteLn('Ошибка: Введите целое число.');
        Guess := -1; // Установка невалидного значения для повторной попытки
        Continue; // Переход к следующей итерации цикла
      end;
    end;

    if Guess = SecretNumber then
    begin
      WriteLn('Поздравляю! Вы угадали число ' + IntToStr(SecretNumber) +
             ' за ' + IntToStr(GuessCount) + ' попыток.');
      Exit;
    end;

    if Guess < SecretNumber then
      WriteLn('Загаданное число больше вашего.')
    else
      WriteLn('Загаданное число меньше вашего.');

    if GuessCount >= MaxGuesses then
    begin
      WriteLn('Вы исчерпали все попытки. Загаданное число было ' +
             IntToStr(SecretNumber) + '.');
      Exit;
    end;
  until False; // Бесконечный цикл, который прерывается по Exit
end;

var
  PlayAgain: String;

begin
  Randomize; // Инициализация генератора случайных чисел

  repeat
    PlayGame;

    Write('Хотите сыграть еще раз? (да/нет): ');
    ReadLn(PlayAgain);

    if (LowerCase(PlayAgain) = 'да') then
      Continue
    else
      Break;
  until False; // Бесконечный цикл, прерывается по break

  WriteLn('Спасибо за игру!');
  ReadLn(PlayAgain); // Pause чтобы окно не закрылось сразу
end.