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

var a:integer;beginwrite ('Введите число а= '); 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.