{ SUDALICHA.PAS                           Copyright (c) Pavel Patak }
{ Rozhodne, zda je zadane cislo sude nebo liche.                    }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program SudaLicha;
Var A : Integer;
Begin
 Writeln('Zadej cislo : ');
 Readln(A);
 Writeln;
 if Odd(A) then Writeln('Cislo je liche.') else Writeln('Zadane cislo je sude.');
 Readln;
End.