Если число, введенное с клавиатуры четырехзначное и делится на 5, то вывести слово "удача", в противном случае "неудача"

Var a: Int64;
begin
  readln(a);
  writeln(((a >= 1000) and (a <= 9999) and (a mod 5 = 0)) ? 'Удача' : 'Неудача');
end.