Var
tahmin,deneme,sayi:integer;
Begin
deneme:=0;
sayi:=random(100); { 0 ile 100 arası rastgele sayı üretir }
Repeat
writeln('Tahmin edin = ');readln(tahmin);
if (tahmin<sayi) then writeln('Daha büyük');
if (tahmin>sayi) then writeln('Daha küçük');
deneme:=deneme+1;
Until (tahmin=sayi);
writeln(deneme,' kere sonunda sayıyı buldunuz.');
End.