var
k,a,b:integer;
begin
writeln('Guess a Number Game');
writeln('Guess.What number do i have?');
randomize;
a:=random(100);
k:=0;
    while a<>b do
begin
    k:=k+1;
    write('Number = ');
    readln(b);
    if a>b then
    writeln('too little')
    else
    if a<b then
    writeln('too much')
    else
    writeln('Congratulations!You Win!')
    else
    if k>6 then
    writeln('Game Over');
end;
end.