Дано целое число X. Определить кратно ли оно 2, 3 и целому числу P. в Пааскале!! помогите пожалуйста

beginVar a:=ReadInteger('Введите число');Var p:=ReadInteger('Введите p');if a mod 2=0 then writeln('Кратно двум');if a mod 3=0 then writeln('Кратно трем');if a mod p=0 then writeln('Кратно p');end.