Uses crt;

var
comp,user:integer;

begin
      randomize;

      comp := random(101);

      writeln('Program have a number from 0 to 100 : ');
      writeln;
      writeln;

      while(comp <> user) do
      begin
              write('Guess a number : ');
              readln(user);

              if(user > comp) then
              begin
                  writeln('Mnogo');
              end;
              if(user < comp) then
              begin
                  writeln('Malo');
              end;
      end;

      writeln('You win ');


      readkey;
end.