Program szamkitalalo;
var x,y,i:byte;
    talalt:boolean;
begin
     randomize;
     x:=random(101);
     talalt:=false;
     for i:=1 to 10 do
     begin
     if not talalt then
      begin
       write('Mi a tipp? ');
       readln(y);
       if x>y then writeln('A gondolt szam nagyobb ennel...');
       if x<y then writeln('A gondolt szam kisebb ennel...');
       if x=y then
              begin
                  writeln('Eltalaltad...');
                  talalt:=true
              end
      end
     end;
     readln
end.