ПОМОГИТЕ!! ПАСКАЛЬ! дано одно целое число. определить: а) является ли оно четным. б) делится ли оно на 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.