Программа на Pascal:

program find_number;
var
num: integer;
begin
num := 50000;
while num < 60000 do
begin
if (num mod 45 = 0) then
writeln(num);
num := num + 10;
end;
end.

Эта программа будет искать все пятизначные числа, которые делятся на 45. В данном случае, мы ищем число, в котором заменяем 54*5* на любые цифры, чтобы полученное пятизначное число делилось на 45.