Найдите в записи числа 54*5* вместо звездочек такие цифры чтобы полученное пятизначное число делилось на 45. нужна программа в паскаль абс

Var i,j:integer;
begin
for i:=0 to 9 do
 for j:=0 to 9 do
  if (54000+i*100+50+j) mod 45 = 0 then writeln(54000+i*100+50+j);
end.

Результат:
54450
54855

54855 разделить на 45 = 1219. Программы только нет.