Rozhodne, zda je zadané číslo sudé nebo liché

Category: Homework in Pascal

Author: Pavel Paták
web: www.webpark.cz/programar

Program: Sudalicha.pas
File exe: Sudalicha.exe

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