Составить программу определения, заданное число а делится на 2,3 или 5. определить на которое делится

Program pr;
Var
a:integer;
begin
writeln('Введите число');
readln(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'); 
end.