Program zadacha;vara:integer;g:boolean;beginread(a);if g=(odd(a)) thenwrite('Нет')elsewrite('Да');end.
var a: integer;
begin
readln(a);
if a mod 2=1 then writeln('Да')
else writeln('Нет');
end.
Program zadacha;
var
a:integer;
g:boolean;
begin
read(a);
if g=(odd(a)) then
write('Нет')
else
write('Да');
end.
var a: integer;
begin
readln(a);
if a mod 2=1 then writeln('Да')
else writeln('Нет');
end.