Дано двузначное число Y. Кратно ли число Y 13?(pascal abc net, операторы ветвления)

var y:integer;

begin

 writeln('Введите число');

 readln(y);

 if y mod 13 = 0 then writeln('Число кратно')

 else writeln('Число не кратно');

end.