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

так-то все правильно, но там нужно сумму чисел оканчивающихся на 9, и с командами sum и count

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