Дано целое число x. определить кратно ли оно 2, 3 и целому числу p. в

Pascal ABC.NET  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.