Даны n чисел, найти количество кратных 10

Var a,  n, k: integer;

Begin
Write('Количество чисел - '); 
readln(n);
k:=0;
For var i:=1 to n do 
begin 
read(a); 
if (a mod 10 =0) then k:=k+1; 
end;
Writeln(k);
End. 

Домик⇒северная стена⇒окно.                                                                               Домик⇒южная стена⇒окно.                                                                                     Домик⇒восточная стена⇒дверь правая⇒ручка                                                                                              ⇒дверь левая⇒ручка                                                                                                                      ⇒нижний замок                                                                                                        ⇒верхний замок                                         Домик⇒западная стена⇒окно                                                                                 Домик⇒крыша

Домик⇒северная стена⇒окно.                                                                               Домик⇒южная стена⇒окно.                                                                                     Домик⇒восточная стена⇒дверь правая⇒ручка                                                                                              ⇒дверь левая⇒ручка                                                                                                                      ⇒нижний замок                                                                                                        ⇒верхний замок                                         Домик⇒западная стена⇒окно                                                                                 Домик⇒крыша