Pascal :

var
  a,b,c,i:longint;
begin
  for i:=10000 to 99999 do
  begin
  a:=i*10+7;
  b:=i+700000;
  if a*5=b then
  begin
  write(i);
  break;
  end;
  end;
end.