Question

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

Answer 1

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