При вводе четырёхзначного числа, которое делится на 5, вывести «Удача» — Паскаль(Pascal) -CF

var n,a:Integer;
begin
  Read(n);
  a:=n div 5;
  if (a*5=n) and (a>199) and(a<2000) then Write('Удача');
end.