Вдесятичной записи числа 42*4* две цифры пропущены. восстановите пропущенные цифры, если известно, что число кратно 72. паскаль, через вложенные циклы.

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

Результат:
42048
42840

Var
  i, j, s: longint;
  begin
  for i := 0 to 9 do
    for j := 0 to 9 do
      begin
      s := (42040 + i * 100 + j);
      if(s mod 72 = 0) then writeln(s, ' ', i, ' ', j);
    end;
  end.