Для Машк

program bingo;                             //Для Машк :3
uses CRT;
var mainNum, trys, enteredNum: integer;
    gameOver: boolean;
procedure GetValues;
begin
     trys:=10;
     gameOver:=false;
end;
begin
     GetValues;

     while mainNum = 0 do mainNum:=Random(100);
     writeln('+ - - - - - - - - - - - - - - - +');
     writeln('| Программа сгенирировала число |');
     writeln('| У Вас есть 10 попыток         |');
     writeln('+ - - - - - - - - - - - - - - - +');

     while gameOver = false do
     begin
          write('  ',trys:2,'. Введите Ваше число: ');
          read(enteredNum);
          trys:=trys-1;

          if trys = 0 then
          begin
               writeln('+ - - - - - - - - - - - - - - - +');
               writeln('|         Вы проиграли..        |');
               writeln('+ - - - - - - - - - - - - - - - +');
               gameOver:=true;
               Exit;
          end;

          if enteredNum = mainNum then
          begin
               writeln('+ - - - - - - - - - - - - - - - +');
               writeln('|          Вы победили!         |');
               writeln('+ - - - - - - - - - - - - - - - +');
               gameOver:=true;
          end
             else
             begin
                  if enteredNum < mainNum then writeln('      ',enteredNum,' < x')
                     else writeln('      ',enteredNum,' > x');
             end;
     end;
end.