Определить сколько трехзначных чисел кратны m вывести их на экран

Это Паскаль ? Если да,то вот: Кратные m- ((a mod m)=0program Primer;uses Crt;var a,k,n,i:integer;begink:=0;read(n);for i:=1 to n do begin read(a); If ((a<1000) and (a>99) and ((a mod a)=o) then begin write(a);k:=k+1; end; end;write(k)end.