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

Question

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

Answer 1

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