Проверить делится ли введенное с клавиатуры число х на 2,3,5 паскаль

Var a: integer; beginwrite ('Введите число: '); read (a); if (a mod 2=0) then writeln ('Число делится на 2'); if (a mod 3=0) then writeln ('Число делится на 3'); if (a mod 5=0) then writeln ('Число делится на 5'); if (a mod 2=0) and (a mod 3=0) and (a mod 5=0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно'); end.