gra_zgadywanka_pascal

program Main;

uses crt;

var liczba : integer;

begin
     writeln('Podaj liczbe z zakresu od 0 do 100: ');      {podanie liczby}
     readln(liczba);
     if (liczba>=45) and (liczba<=51) then                   {sprawdza czy liczba nalezy do zakresu}
        begin
             writeln('zgadles');                            {jesli tak}
             readln();
        end
        else
        begin                                               {jesli nie kolejna petla}
             if (liczba > 51) then                          {czy liczba wieksz niz 51??? 1 wystarczy gdzyz pierwsza wychwyci w zbiorze prawidłowe a za małe beda jako nie}
                begin
                    writeln('za duzo');                     {za duzo}
                    readln();
                end
            else
                begin
                    writeln('za malo');                     {za mało}
                    readln();
                end;
        end;

end.