program numero;

uses crt;



var mero,adivi: integer;



begin

     clrscr;

     randomize;

     mero:=random(1000);

   repeat

     write('Introduza um numero para adivinhar?:');

     readln(adivi);

     if mero > adivi then      writeln('Muito baixo');

     if mero < adivi then      writeln('Muito Alto');

     readkey;

     clrscr;

   until mero = adivi;

     writeln('Acertas-te');

     readkey;

end.