Произвольное число х вводится с клавиатуры.определить: является ли это число четным,кратно ли 3,крaтно ли 5 нужно написать программу

Var x:integer;
begin
write('введите число х='); readln(x);
if x mod 2 = 0 then writeln('Число четное');
if x mod 3 = 0 then writeln('Число кратно 3');
if x mod 5 = 0 then writeln('Число кратно 5');
end.