{ 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.