Дано все 3-х значные числа Отыскать сумму и колличество чисел, кратных

program zz1;

var i, s, k:integer; // вводим переменные целого типа

begin

for i:=100 to 999 do // организуем цикл, в котором переберем все трехзначные числа

if i mod 9 = 0 // проверяем, если трехзначное число кратно 9, то

then begin s:=s + i;k:=k+1;end; // вычисляем сумму таких чисел и их количество

// выводим ответ

writeln(  сумма трехзначных чисел кратных 9 = , s);

writeln(  количество трехзначных чисел кратных девяти = , k);

end.