Решить 8. определить, является ли натуральное число, введенное с клавиатуры в память компьютера, четным.

Program lol;
var a:integer;
begin
readln(a);
if(a mod 2=0) then writeln('да')
else write('нет');
end.