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

var n:integer;beginwriteln('Введите число');read(n);if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');end.