{* Задача 39 *}

Unit ZADACH39;
Interface
Implementation
Begin
 writeln('Программа задумывает число от 0 до 100. Задача - угадать это число, выводя подсказки "Это много" или "Это мало". ');
End.

Program zadach39;

Uses zadach39.pas; {* Эту строку можно удалить *}
label 1;
Var {* Необходимые переменные *}
  A : integer;
  B : integer;
Begin
  randomize;
  A := random(100);
  1 : writeln('Угадай число от 0 до 100: ');
  readln(B);
  If B = A Then
    writeln('Вы угадали!')
  Else If A > B Then
  Begin
    writeln('Неверно. Это мало');
    Goto 1;
  End;
  Else Begin
    writeln('Неверно. Это много.');
  Goto 1;
End;
  readln
  End.....