Pokaz_zakres_pascal

program Main;

uses crt;

var liczba : integer;       {Zmienna liczba}

begin
     writeln('Podaj liczbe: ');         {podanie liczby}
     readln(liczba);
     if (liczba < 60) and (liczba > 50) Then        {Warunek czy liczba miesci sie w zakresie 50-60}
        begin                                       {wypisuje jesli tak}
             writeln('podana liczba miesci sie w zakresie: ',liczba);
             readln();
        end
        else
        begin                                       {wypisuje jesli nie}
             writeln('liczba sie nie miesci w zakresie: ',liczba);
             readln();
        end;


end.