дано целое число. составить программку ,определяющую, является ли введенное число кратным

var 

  a: integer;

begin

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

  readln(a);  //Вводим целое число 

  if a mod 5 = 0 then writeln('Число ', a, ' кратно 5')  Если остаток от разделения введенного числа на 5 равен 0 (т.е. число кратно 5), то печатаем известие о том, что это число кратно 5, по другому печатаем, что не кратно

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

end.

Отметь решение как лучшее, плиз.

var n:integer;

begin

readln(n);

if n mod 5=0 then writeln('kratno 5') else writeln('Ne kratno');

end.