Составьте программу,определяющую четное или нечетное количество лепестков у ромашки.

Var
a:integer;
begin
read(a);
if a mod 2 = 0 then
writeln(Четное)
else
writeln(Нечетное);
end.