В трехзначном числе, все цифры которого нечетны, зачеркнули вторую цифру слева. Оказалось, что полученное двузначное число является делителем исходного числа. Найти все такие трехзначные числа. Сделайте пж на паскале абс. спс

begin

   for var i := 100 to 999 do if odd(i div 100) and odd(i mod 10) and odd((i div 10) mod 10) then if i mod (10*(i div 100)+(i mod 10)) = 0 then write(i, '  ');

end.