Найти сумму логарифмов целых чисел кратных 6 из отрезка [A,B] — Pascal(Паскаль)

uses crt;
var s:real;
a,b,i:integer;
 
begin
 clrscr;
 write('A B -> ');
 readln(a,b);
 s:=0;
 for i:=a to b do if (i mod 6 = 0) and (i > 0) then s:=s+ln(i);
 writeln('S=',s:0:4);
 readln;
end.