var
n,n1:integer;
begin
writeln('Ma gindesc la un numar, de la 1 pina la 100, iar tu incearca s-al ghicesti');
n:=random(100);
while n<>n1 do
begin
writeln;
write('Numarul tau: ');
read(n1);
writeln;
if n1>n then writeln('Numarul tau e mai mare');
if n1<n then writeln('Numarul tau e mai mic');
end;
Writeln('Ai dreptate, ma gindeam la numarul ',n);
end.