Составьте математическую модель, и программу, проверяющую, является ли число, введенное с клавиатуры четным или кратным 6. (паскаль)

Var a:integer;

begin

write ('Введите число а = ') ; readln (a) ;

if a mod 2 = 0 then writeln ('Число ', a,' четное') else writeln ('Число ', a,' нечетное') ;

if a mod 6 = 0 then writeln ('Число ', a,' кратно 6') else writeln ('Число ', a,' не кратно 6') ;

end.