Составьте модель,и программу, проверяющую, является ли число, введенное с клавиатуры четным или кратным 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.