Parzystosc_pascal

program Main;

uses crt;

var liczba : integer;

begin
     writeln('Podaj liczbe: ');   {pobiera liczbe}
     readln(liczba);
     liczba := liczba mod 2;       {dzieli ja przez reszte z dzielenia całkowitego przez 2}
     if (liczba = 0) then           {warunek czy reszta z dzielenia jest 0??}
        begin
             writeln('liczba jest parysta');             {jesli tak}
             readln();
        end
     else
         begin
              writeln('liczba nie jest parzysta');            {jesli nie}
              readln();
         end;

end.