Для делимости числа на 5 необходимо, чтобы последняя цифра числа была 0 или 5. написать процедуру проверки делимости числа n, вводимого с клавиатуры, на 5. ( паскаль )

Var n:integer;

procedure delim(n:integer);
begin
if(n mod 5=0) then writeln('Делится')
    else writeln('Не делится');
end;

begin
writeln('Введите число');
readln(n);
delim(n);
end.