Паскаль! дано одно целое число. определить: а) является ли оно четным. б) делится ли оно на 13

var
a:integer;
begin
readln (a);
if a mod 2 =0
then writeln ('Четное')
else writeln ('Нечетное');
if a mod 13=0
then writeln ('делится на 13')
else writeln ('не делится на 13')
end.