Определить кол-во чисел, кратных 5, трехзначных и сумму оканчивающих 9. (паскаль)

Program F1tsku;
var x:integer;
begin
writeln ('Введите число');
readln(x);
if (x mod 10=9) and (x mod 5=0) then
writeln('Да') else writeln('Нет');
end.