program tahmin;
uses wincrt;
var
sayi,sayi2,i:integer;
begin
writeln('bulunacak sayiyi giriniz');readln(sayi);
while(sayi<>sayi2)do
begin
writeln('tahmininiz');readln(sayi2);
if sayi2if sayi2>sayi then writeln('daha büyük bir sayi giriniz');
end;
writeln('tebrikler');
readln(i);
end.