Задача; Подставить к записи 54*5* вместо звездочер такие цифры, чтобы полученное пятизначное число делилось на 45.

вам подойдет число 54855 или 54450

var
j,i: integer;
begin
for i:= 0 to 9 do
 begin
 for j:=0 to 9 do
  begin
  if ((54*100+i*10+5)*10+j) mod 45 = 0 then writeln((54*100+i*10+5)*10+j);
  end;
 end; 
end.