Подсчитайте количество трехзначных чисел, кратных 13.

var i,k:integer;
begin
k:=0; 
for i:=999 downto 100 do 
begin   
if i mod 13= 0 then
k:=k+1;   
end;  
write(k); 
end.


var i,k:integer;
begin 
k:=0;  
for i:=100 to 999 do  
begin    
if i mod 13= 0 then 
k:=k+1;   
end;   
write(k); 
end.