Найти произведение двузначных нечетных чисел, кратных 13 — Pascal(Паскаль)

uses crt;
var i : integer;
s : longint;
begin
 clrscr;
 s := 1;
 for i := 10 to 99 do
  if (i mod 13 = 0) and (i mod 2 <> 0) then
   s := s * i;
 writeln('proizvedenie = ',s);
 readln;
end.