Parzystosc_niepa_pascal

{wszystkie projecty na "http://pastebin.com/u/udsigry"
Licencja: hmmm........ :P}

program Main;

uses crt;

var  liczba  : word;   {Zmienna}

begin
     for liczba := 50 to 100 do                                         {Chce wykazać liczby od 50 100 rosnaco}
         begin
              if ((liczba mod 2) = 0) Then                              {Wypisuje tylko liczby parzyste z przedzialu}
              begin
                   WriteLn('Parzysta: ',liczba);
              end;
         end;
         readln;
     for liczba := 121 downto 99 do                                     {Chce wykazać liczby od 121 do 99 malejaco}
         begin
              if ((liczba mod 2) <> 0) Then                             {Wypisuje tylko liczby nieparzyste z przedzialu}
              begin
                   WriteLn('Nieparzysta: ',liczba);
              end;
         end;
         readln;


end.