Menentukan Bilangan Ganjil atau Genap ~ Cybermatika

program ahmadsa;
var
a:integer;
f:text;
begin
assign(f,'12');
rewrite(f);
readln(a);
if (a mod 2=0) then
writeln(f,'bilangan genap')
else
writeln(f,'bilangan ganjil');
close(f);
end.