Пользователь вводит 10 натуральных чисел. Вывести на экран количество трехзначных чисел, кратных 5. Если таких нет, на экран вывести No.

Если задача на Паскале то вот: Beginvar a:array of integer;Var k:=0;For var i:=1 to 10 doBeginReadln(b);a[i]:=b;End;For var i:=1 to 10 doBeginIf a[i] mod 5 = 0 then inc(k);End;If k=0 then println('No')Else println(k);End.Должно быть так, проверить на ошибки не могу, так как компа нету рядом.