Localize file www.TrSek.com/zadania/sudalicha.pas{ 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.